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CHAPTER 1- INTRODUCTION TO 3100/3200/3300/3500 COMPUTER HARDWARE 


The majority of the programming that will be done for the 
3100/3200/3300/3500 computers will be done with a subset of 
the total instruction repertoire for the particular machine. 

The subset chosen for this manual applies primarily to the 
3100/3200 computers because of the BCD instructions chosen. 

If this chapter were eliminated, what remains applies equally 
to all computers in the series. The 3300/3500 computers in 
addition to having different BCD instructions, have some addi^ 
tional features and instructions. These will not be discussed 
here. The student is referred to the appropriate machine 
reference manual for a description of those additions. The 
timing information included in this manual applies to the 3200/ 
3300 computers. 3100 times are about forty percent higher; 

3500 times are at least forty percent lower. Other then in the 
case of timing information and the BCD instructions, the manual 
points out those areas that are specifically 3200, which was 
the machine chosen as representative of those in the series. 
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STUDENT NOTES 




1.1 3200 HARDWARE 


1.1.1 Diagram of 3200 computer 


BLOCK 

CONTROL 


Register 

File 


PROGRAM 

CONTROL 


Index Regs 



[y 

_Oth er Regs 


ARITHMETIC 

PROCESSOR 


S Bus 
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FIELD 
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0 
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(4K) 

<4K) 
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I/O MODULE 


Main Frame 


STORAGE 

MODULE 

(8K) 


DATA 

CHANNELS 

(Maximum of 8 for 
a 3200 Computer. 
Only 4 shown here.) 


PERIPHERAL 

EQUIPMENT 

CONTROLLER 


|PERIPH.| 
UNIT 


S Reg: 13-bit register, which 
holds the address of 
the word being processed. 

Z Reg; 28-bit register, which 

holds the contents of the 
word being processed. 

(Used also to write contents 
of word back into store.) 















1 »2 Data Bub 


The data bus is the path along which data flows between the 
various sections of the computer. The sections (storage, the arithmetic unit, 
the console typewriter, and the input/output section) are connected in parallel 
to the data bus. During execution of each instruction, program control 
determines which unique path is to be enabled so that the ftinction called 
tor in Tshe program instruction can be cairried out. 

The data bus contains a 24-bit register called the Data Bus 
Register (DBR) which is used to hold data temporarily during a data transfer. 


1»1,3 Arithmetic Section 

The arithmetic section of the 3200 processor consists of three 
operational registers, namely - 

(i) A - arithmetic register 

(ii) Q - auxiliary arithmetic register 

(iii) E - optional arithmetic register. 

(i) The A Register (Accumulator) 

The A Register is the principal arithmetic register. It is a 
24 -bit register, whose contents can be displayed on the console 
of the 3200 . 

All arithmetic and logical operations use the A register in 
formulating a result. It is the only register with provision 
for adding its contents to the contents of a storage word or 
another register. 

(ii) The Q Register (Quotient) 

The Q register is an auxiliary register and is generally used 
in conjunction with the A register. It is a 24-bit register, 
whose contents can be displayed on the 3200 console. Combined 
with A it forms a 48-bit register, AQ. Most arithmetic operations 
possible with the A register are also possible with the AQ 
register. The Q register often is used to provide temporary 
storage for the contents of the A register while the A register 
is used for some other operation. 

(iii) The E Register 

This register acts as a supplement to the AQ register. It is 
a 48-bit register, whose contents can be displayed on the 3200 
console, in the display sections usually occupied by A and Q. 

(The upper 24 bits of E - called - are displayed in A, and the 
lower 24 bits of E - called E^^ - are displayed in Q.) The reg¬ 
ister is used in 48-bit precision multiplication and division, 
and in floating point multiplication and division. 

In BCD operations, the E register is designated the E^ 
register, and its size is extended to 53 bits, to enable it to 
handle thirteen 4-bit characters, plus a sign bit. 



1>1,4 Program Control 


The program control section contains six operational registers, 
all of which may be displayed on the 3200 console. They are - 


(1) p 

(ii) p 

(iii) c 

(iv) B 


- program control register 

- Program address counter 

- Communication register 

- Three index registers, and B^ 


(i) The P Register 

This 24-bit register is used to hold the instruction 
during the time it is being executed, 

(ii) The P Register 

This 15 -bit register holds the address of the instruction currently 
being executed, and generates, in sequence, the storage addresses 
which contain the individual instructions. After execution of an 
instruction, P is altered to indicate the address of the next 
instruction to be read. The address is sent via the S (address) BUS 
to the specified storage module where the instruction is read. 

(iii) The C Register 

The 24-bit C register is used to enter quantities into Storage, 

A, Q, E, B or P registers via the console key board. The quantity 
is entered in C, and then transferred to the specified register 
when the "transfer” button on the keyboard is pushed. 

(iv) The B Registers 

The 15-bit B registers (index registers) are used principally as 
counters and instruction modifiers. 


1.1,5 Block Control 


For a general description of the use of Block Control see 
Section 10.1. 

(i) The Register File 

The register file is a 64 word ( 24 -bits per word) i«-pid access 
memory with a cycle time O .5 microseconds. Although the programmer 
can access all registers in the file with the inter-register transfer 
instructions, certain registers are reserved for specific purposes. 
These are defined in the following table: 



1»1»5 (cont») 



RESERVED FOE 

00-07 

Modified l/O instruction word containing the current 
character address (Channel 0-7 control) 

10-17 

Modified l/O instruction word containing the last 
character address plus (or minus) one (Channel 0-7)- 

20 

Current character address for search control 

21 

Source address for move control 

22 

Real time clock, current time 

23 

Current character address for typewriter control 

24-27 

Temporary storage 

30 

Last character address + 1 for search control 

31 

Destination address for move control 

32 

Real time clock, time at which to generate interrupt 

33 

Last character address + 1 for typewriter control 

34-77 

Temporary storage 


Because of the fast access time, use of Registers 24-27 and 34-77 
as temporary storage will speed up program execution. Other registers may' 
also be used for temporary storage if their use will not disrupt operations 
in progress. 

(ii) The Real Time Clock 


The real time clock is a 24-bit counter that is incremented each 
millisecond* The current time is stored in Register 22. It is removed from 
storage each millisecond, updated, and compared with the contents of Register 
32. When the two are equal, an interrupt condition occurs. 

The clock has a period of 16,777>216 milliseconds (approximately 
4 hours 40 minutes). It starts as soon as power is supplied to the computer. 
Its contents may be examined at any time by transferring them to the A 
register using an inter-register transfer statement. It may be reset to any 24 
bit quantity (including zero) by loading A, and transferring the contents of 
A into Register 22. 


1.1.6 Diagram of 3200 Console Register Bisplay 




































1,2 3200 COBE STORAGE 


t,2,1 Storage Word 


27 26 25 24 23 18 17 12 11 06 05 00 


Po] Pi 



Character 0 

Character 1 

Character 2 

Character 3 

V 


_ ^ 






Parity bits Character xiesignators 


The 3200 is a word machine with each word consisting of 28 bits. 
Each word may be regarded as four 6-bit characters as shown above, with 
parity bits for each character located in bits 24-27. 


1.2.2 Word Addressing 

Each word in the storage of the 3200 is addressable. The address of 
a particular: word is its relative position in the storage. The first word 
is word 00000, the second is word 00001, the third 00002, etc. The address 
is specified as five octal digits, which may be broken down to indicate the 
actual location of the word in core. 

The 3200 core is composed of modules of 8,192 words each. There may 

be up to four such modules attached to the computer, and the modules are 

numbered from 0 through 3* Thus an 8K 3200 would have only one module, 

numbered 0^ (OO^), a 16K 3200 would have two modules, 00^ and 01and so on. 
o d d c 

Each 8K module is made up of two 4?096 word fields , numbered field 0 
and field 1. 


Module 00 


Field 

Field 

0 

1 


Within each field, words may be regarded as numbered from 0000 to 
77770 (4096^0 words). The position of a word in a field is known as its 

Coordinate address in that field. 

Thus a 15-bit address 01200 q may be divided up to indicate its 
position in core as follows: 

bits 00-11 indicate the co-ordinate address (l200g) 

bit 12 indicates the field (O) 

bits 13-14 indicate the module (O) 

Examyles : 

Address 31040g « Module 1, field 1, address 1040g 
Address 77777q - Module 3, field 1, address 7777q 





INTRODUCTION TO SCOPE/COMPASS 


2.1 INTRODUCTION TO THE SCOPE MONITOR 

2.1.1 SCOPE Library Tape 

2.1.2 SCOPE System terms 

2.1.3 SCOPE Control Card 

2.1.4 SCOPE/COMPASS Run 

2.1.5 SCOPE/Program Execution Run 



2.2 INTRODUCTION TO THE COMPASS ASSEMBLY SYSTEM 

2.2.1 Assembly Process 

2.2.2 General Word Addressing Instruction Format 

2.2.3 COMPASS Source Program - Coding 

2.2.3.1 LOCATION Field 

2.2.3.2 OPERATION Field 

2.2.3.3 ADDRESS Field 

2.2.3.4 COMMENTS Field 

2.2.4 Coding Simple COMPASS Programs 

2.2.4.1 Beginning the Program 

2.2.4.2 Ending the Program 

2.2.4.3 SCOPE Entry 

2.2.4.4 Deck Structure for COMPASS Course Exercises 



2.1 INTRODUCTION TO THE SCOPE MONITOR 


The SCOPE monitor is a program that provides a 
system of operator and programmer aids to increase through-put 
and to simplify the operator's job. 

Its purpose is to increase job processing efficiency 
by increasing information through-put, and to minimize operator 
errors, operator intervention and idle computer time. 


2.1,1 SCOPE Library Tape 

The library tape serves as the source for the SCOPE 
operating system as well as those library routines operating 
under control of SCOPE. The tape consists of two files: 


Load 



LIBRARY TAPE FORMAT 


The first file consists of absolute binary information 
which, from this point on, will be considered the SCOPE 
operating system. The second file consists of relocatable 
binary subprograms such as COMPASS, FORTRAN, COBOL, etc. 


2.1.2 SCOPE System Terms 


RUN 


The complete execution of a subprogram under the control 
of SCOPE. 

JOB 


The sets of tasks assigned to SCOPE by the programmer. 
A job consists of one or more runs. 

STACKED JOBS 


A stack consists of one or more jobs. The termination of 
a job is signaled by the printout of the SEQUENCE card for the 
next job. 

NON-STACKED JOBS 


A stack which consists of only one job. The presents of 
the '’NS” parameter on the job card indicates that this job is 
a non-stacked job. 

The termination of a non-stacked job is signaled by the 
printout of ’’NORMAL END” or ’’ABNORMAL END” at which time pro¬ 
cessing will halt. 









2,1.2 (cont.) 


SUBPROGRAM 


The smallest unit recognized by the SCOPE LOADER. 


LUN 

A two-digit decimal number representing a logical reference 
to a physical I/O unit. 


2.1.3 SCOPE Control Card 

Refer to Chapter 17 


2.1.4 SCQPE/COMPASS Run 






SCOPE/COMPASS RUN 









2,1,5 SCOPE/Program Execution Run 





Em o 
RUN 


SCOPE/PROGRAM EXECUTION RUN 


2.2 INTRODUCTION TO THE COMPASS ASSEMBLY SYSTEM 

(a) COMPASS is the COMP rehensive ASsembly System for use with 
Control Data Computers. 

(b) COMPASS operates under the SCOPE monitor system. 

(c) COMPASS enables the programmer to write machine language 
through the use of mnemonic instructions and symbolic 
addresses. The COMPASS assembler translates these 
instructions and addresses into machine language. 

(d) In COMPASS source language, the programmer is also able 
to specify constants, exercise control over subprogram 
communication and control the assembly process with a 
powerful set of PSEUDO (assembly) instructions. 

(e) A COMPASS program consists of a number of linked subprograms, 
each of which will be assembled independently and linked by 
the LOADER, prior to execution of the program. 

(f) A COMPASS subprogram consists of lines of coding preceded by 
an IDENT pseudo instruction, and followed by an END pseudo 
instruction. The size of the subprogram and the magnitude 
of the problems solved by it are at the discretion of the 
programmer. 







2»2»1 Assembly Process 


(a) Assembly language is much closer to machine code than languages 
like FORTRAN and COBOL. A line of FORTRAN coding may generate 
many machine instructions (perhaps in the ratio of 1:10). Most 
COMPASS instructions generate only one machine instruction. 

Example : STA C0UNT 

If C0UNT is located at address ^ 74 q 9 

this instruction would be assembled as 

40000174 

(b) The assembly process may be represented diagrammatically as 
follows: 


DIAGRAM OF THE ASSEMBLY PROCESS 



Note : (a) The COMPASS assembly program converts programs written in 
COMPASS into machine language for execution under the 
SCOPE monitor system. 

(b) Source programs may be punched on cards or paper tape, 
or written on magnetic tape. 

(c) Output from the assembler includes an assembly listing 
and a relocatable binary object deck. The output deck 
may be punched out on cards, or written on a magnetic 
tape for immediate execution. 






2m2,1 (cont,) 


(d) What does the assembler do? 

(i) Allocates storage locations to instructions and 
to blocks defined in pseudo or area-definition 
instructions. Note use of 

(ii) Replaces symbolic addresses with allocated 
storage locations from (i). 

(iii) Replaces symbolic instruction addresses with 
actual instruction addresses from (i). 

(iv) Indicates index register use and/or indirect 

addressing in the relevant bits of the necessary 
instructions. 

(v) Converts mnemonic operation-codes to machine 
language equivalents. 

(vi) Stores literals in a special literal table, after 
checking for any prior use of that literal. 

(vii) Replaces literals in the instructions with the 

addresses of the table locations of the literals. 

(viii) Check for assembly language (source language) errors 
and generates necessary diagnostic messages. 

Most assemblers perform these functions in a number of passes. 
The source program is first written on to tape, at the same time carrying 
out some of the above functions. Then the tape is passed against the 
assembler at least once more to carry out the remainder of the functions. 



2#2,2 General Word Addressing Instruction Format 


The 3200 (24-'bit) word addressing instruction takes the 
following general form - 


Bit poshion 2S 

18 

17 

16 15 

14 


00 

1 (6 bits) 

(1 bit) 

(2 bits) 

(15 bits) 1 





V 



f 


a 

^ y 
b 


V. 

m or y 



Where f « function coae of b bits. 

Range is 00. through 77 • 

3 8 

This code determines the type of action 
to be carried out. 

e.g. 20. * Load the A register, 

o 

31Q » Subtract from the A register. 


a « Addressing mode of 1 bit. 

If this bit is a zero, direct addressing is 
carried out. 

If this bit is a 1 bit, indirect addressing is 
carried out. 


b 


Index designator of 2 bits. 

If b » 00, no index is used 

If b » 01, index 1 is used 

b - 10, index 2 is used 

b « 11, index 3 is used. 


m * Execution address of 15 bits. 

This is the address in memory at which data 
required for execution will be found. The 
24-bit quantity found at that address will be 
used in a manner determined by the rest of the 
Instruction. 


y « Operand of 15 bits. 

This specifies a 15 bit quantity which will 
be used as data in some way. It is the 
actual data , not the address of the data. 

Exercise : Divide up the following octal instructions into their components 

20400100 

27100000 

56201010 

01322222 

77654321 

46077776 

17500000 

66766766 

Note that the address "m" specified in a word address instruction can he 
divided further to indicate its actual location in storage. 




2«2,3* COMPASS Source Program - Coding 

The following fields are used on the COMPASS coding sheets and 
on COMPASS punched cards. 


NAME OP 

FIELD 

COLUMNS ON CARD 

OR CODING SHEET 

Location 

1 - 8 

Operation 

10 - 20 

Address 

21 - 40 

Comments 

41 - 72 

Identification 

73 - 80 


The use of these fields is discussed following the samples of 
the COMPASS CODING FORM and the COMPASS CARD. 


Instructions in subprograms to be assembled by COMPASS are 
written on coding forms. The information on the coding form 
will be punched into cards or prepared on other suitable media 
for input to COMPASS. Following is a sample COMPASS CODING FORM 


COMPASS CODING FORM 


rflMTDni flATIl 

NM 


bUn1nUL DA 1 ft 

m 

inm I 


m 

ucfM HopcymMiKiis MNCss fmi nanrs | 

rii 1 





imuipii 



...... 


Hlljjlli 

11 1 111 •. ■ 


. .. 

.111,,. 



. 

. 



1 1 1 1 1 1 1 1 1 

... 

.. 


.. . 

. 


..., 

,1.11,, 

1 . 1 . 1 1 t 

1 ■ t i . . 1 1 1 

11 • • 1 1 • 11. >. i • 111 i 1. 


■ .111.! 



..... 

............... 

....... 

HHUHI 

IHHHHH 

Hmmiiiiiiiiiipii 


mmH 



, j ..1,11111,1,,, 

....... 



I,,:::::.. 




HHmii 

IHHHHH 


. .... i ,,, 1 1. 1 .... 



IHHIHHI 

. 11 • I > I. >.. > 1111.111 

. . .. . . 


RPMUH'^ 

IHHIHHi 

J 1 1 1 1 1 F t J 1 ( t 1 1 1 1 1 1 1 1 



mHlMII 

IHHHHH 

.. , . 1 , , , , 




IHHlilHI 

1 1 1 1 1 1 L 1 1 I L 1 1 1 , t 1 1 1 , 



HHHHi 

IHHIHHI 

j 1 I 1 1 1 1 1 1 I 1 1 1 1 . . . ■ , , 

. , 1 1 ,,,,,,,,, r , 


HURHi 

ihhhihi 




HjHjHI 

IHHHIHI 






^ ^ ^ ^ ^ ^ 

. .., , . . , 


mumi 

immun 

HHHHHHfHIHIHI 

HHHHHHHHRlHHHIHHH 

'IHHHI 

Mum^ 

ilHHilHI 

HHHHHHIHHHH 

HHHHHHHHIIHHHIHHHI 

'HHHH 

HHHHi 

IHHHHH 

HHHIlillllllllllll 



HHHHi 

ihhiiihi 


1 1 , V , 1 

' .. . 1 . . . 1 1 1 . . - . . . L . I i-. 

....... 

HilNiill 

iHHIliili 



rBi>4ir«imiTT|TalMiM 


COMPASS CODING FORM 
(half-size) 


Each line of the coding form represents one card when punched 
into cards. 
























LDA. ALEK 

Restrictions - (a) 1-8 characters (need not be ri^t 

or left justified). 

(b) First character must be alphabetic, 
others can be alphanumeric. 

(c) Special characters are not allowed, 
except period. 

(d) Imbedded blanks are illegal. 

Examples: 

I LEGAL I ILLEGAL I 


ABODE 

A1A1A1 

1AU1A 

g g 

A1234 

xr2.23 

T0M+5 

ABCLEPGHIJ 

X 

PART3 

27 

P^G* 
























2>2«3,1 (contQ 


Special Coipment Card 


An asterisk in Column 1 of the location field means that the rest 
of the card will be treated as if it is a comment. 


Example 


A COflhENTS CARD, 

a 112 114 It. 16 I 18 IS 20 L jj 24 It 27 2« 30 31 32 33 35 36 37 3S 39 40 4| 42 43 44 j 



III I I 

e 0 1 0 0 1 0 0 1 0 0 0 0 D 0 0 0 0 II 0 0 0 0 0 0 0 0 0 01) 0 0 0 II 0 0 0 D 0 0 0 D 0 

I 2 3 4 5 6 7 8 9 10 II 12 13 14 IS 16 17 18 19 20 21 22 23 24 25 26 27 28 23 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 

11111 M 11 ill 111 M I n Mil n 1111 M 1 n 11 n 11 n I 

22222|22|222222M22|2222222;2222222212222222 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 28 21 22 23 24 2S 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 

33l333333333|33333|33|333|333333333333333333 
14444444444444||44444444|4444444444444444444 


2.2.3.2 OPERATION Field 


This field can contain 

(a) l&iemonic operation codes. 

(b) Pseudo instruction Mnemonics. 

(c) Macro instruction names. 

(d) Octal instructions OOq-TTq* 

o o 

The code must begin in col. 10, otherwise it will assemble as 

OOq (halt code). Modifiers are written in this field, 
o 

e.g. CHAR BSS,C 4 means set up an area consisting of 4 
characters and labelled "CHAR". 


Examples: 

05 

BSS 

ENAjS 

LDA 

LDA,I 

INPC,INT,B,H 

MACNAME 


2,2.3,3 ADDRESS Field 

This field can contain ; 

(a) Symbols 

(b) Constants 

(c) Special Characters 

(d) Literals 

(e) Expressions 

The address field can begin anywhere after the operation 
field, provided it is separated from the operation field 
by at least one blank. 





2,2^3>3 (cout«l) 


However, it nnist begin before ooltum 41 > aJid finish before 

column 73* 

(a) Symbols : 


A symbol appearing in the address field must be defined by- 
appearance in the location field of an instruction in the subprogram, or 
be declared as external. If it is not so defined, an error flag ”11** - 
undefined symbol - will be given on the listing. The symbol may be 
relocatable or non-relooatable. The value assigned to a non-relocatable 
symbol will not be modified on loading. 

Examples t LM GIG.2 (relocatable) 

GIG.2 ENA 0 


LDA 

INTADDR EQU 


INTADDR (non-relocatable) 
4 


(b) Constants : 


Integer constants can represent a number of functions depending 
on the type of instruction - 


e.g. 

octal address 

(LM) 

(LDA 


constant value 

(ENA) 

(ENA 


shift factor 

(sha) 

(SHA 


Octal integers must be suffixed 


100B) 

100B) 

6 ) 

by the letter B. 


NOTE: Nximbers in address field are assumed to be 
decimal unless followed by a B. 


(c) Special Characters : 

Two special entries may be made in the address field - 
(i) A single asterisk is interpreted as the current value 
of the address counter when the * is encountered. 

Example: ENA 0 

LDA *-1 

means: Load the A register with the instruction 
preceding the LDA instruction. 

(i.e. with assembled ENA O) 

The double asterisk causes the address portion of the 
instruction to be assembled with a 1-bit in each bit 
position, and is used where modification of the 
address will take place during execution. 

Example: START TTJP 

Assembled as 01077777 

(d) Literals : 

If the address field refers to an operand (a value), the 
entry may be a literal, expressed as -mv. 

where m « the mode 
V = the value 

Double precision literals are expressed as »2mv. 


(ii) 



The mode of the literal 

may be: 

(i) Decimal 

DVA 

=D23 

DVAQ 

«2D2753 

(ii) Octal 

LDA 


LDAQ 

=2jZ(7777777777777777 

(Tip to 16 octal digits may be specified for 
double precision) 

(iii) Hollerith 

LDA 

«HABCD (max: 4 characters) 

LDAQ 

=2HABCDEP(yH (max: 8 characters) 

During assembly, a literal is converted to binary, and assigned 
a relocatable address which is substituted for the literal in the object code 
Literals are all stored at the end of the subprogram. If two literals of the 
same value and size are specified, they are not duplicated. When CJ^MPASS 
encounters a literal, the value is compared against all other previously 
assembled literals. If an identical value exists, the address of the 
previously assigned literal is substituted in the object code. 

(e) Address Expression: 


Address expressions may 

be formed. 

Examples: LDA 

T^H>2 

ENA 

SY»-46B 

SYM EQU 

275B 


Subprogram, data and common relocatable symbols may be mixed• 

NOTE i External symbols, the double asterisk and literals may not 
appear in an address expression * 


2,2>3,4 COMMENTS Field 

Comments may be included with any instruction. A blank column 
must separate th«n from the last character in the address field and they 
may extend to column 

Comments have no effect on assembly, but will be included on the 
assembly listing. 

It is highly recommended that liberal use should be made of 
comments and comments cards. 


An example is shown on the following page. 



IDEHT 


•k 


* COMPASS 

CjZiURSE 

EXERCISE 3 


k 

J. SMITH 



* 





fiHTEY 

START 

♦SCOPE ENTRY* 

START 

UJP 

** 



MQ 

I 4 B 



ENA 

0 

INITIALIZATION 


STA 

SOT 

OP GOCHTE^ 


STA 

C0OTT 


* 




k 




L(^P 

LM 

SOT 



Am 

C^UNT 



STA 

SOT 

MAIN 


T.^A 

CJ^UNT 

L0^P 


AQ{J 9 EQ 

START 



USA 

1 



STA 

CJi^UNT 



UJP 

L^^P 


k 




k 




k 




Cj^TJHT 

BSS 

1 


S13H 

BSS 

1 



END 

START 




2t2»4 Coding Simple COMPASS Programs 
2,2,4«1 Beginning the Prograip 


The first card in the deck must he an IBENT card. This card has 
the word IBENT punched beginning at Column 10, and the program name (of 1-8 
alphanumeric characters, the first of which must be alphabetic) punched 
beginning at Column 20. 

Examples ; 

. IPm Tesj4Z 

. ipm 0,417 

^ <tPc^DEi\ ^ . ;,.. 

I 

-i ^ - - . ..1...J 

I 


2,2,4,2 Ending the Program 

The last card in the deck must be an ENB card. The word ENB is 
punched beginning at Column 10, and the entry point (the beginning 
instruction in the program) is punched beginning at column 20. (However, 
see later section on ENB statement in relation to programs containing more 
than one sub-program). 

Examples : 



1 


10 

20 




ENB 

START 

or 



ENB 

BEGIN 

or 



ENB 

L0J2JPIN 


or 

or 


2,2,4.3 SCOPE Entry 

So that the program can be run under SCOPE, it is necessary to 
ensure that control returns to SCOPE when the program is finished. The 
entry point into the program should take the following form to enable this 
to be done: 



1 


10 

20 


START 


UJP 


or 

BEGIN 


UJP 


or 

I^^PIN 


UJP 

** 


This will be the first executable statement in the program. SCOPE 
will enter the return address into the location START instead of the two 
asterisks. The last executable instruction In the program should be a jump 
back to the beginning so that control can be returned to SCOPE. 

Examples : 



1 

10 

20 




UJP 

START 

or 



UJP 

BEGIN 

or 


UJP 







2.2.4.4 Deck Structure for COMPASS Course Exercises 


(i) Assembly only 


(ii) 


(iii) 


^SEQUENCE,666 

y 

gJOB,1112115,6404,5 
^COMPASS,L 


^COMPASS source deck 

FINIS (punching begins in column 10) 

(end of file card) 

Assembly and execution: 


77 

88 


^SEQUENCE,666 

^JOB,1112115,6404,3 

^EQUIP,56=MT 

^COMPASS,L,X 

(compass source deck 

FINIS 

^LOAD,56 

9 

^RUN,4 

Data 

77 (end of file card) 

88 

Alternative ’’assembly only”. 


Use all cards as for execution, except RUN and DATA. 

Any LOADER errors will then be indicated, but the 
program will not be executed. 

NOTE: 1, The ^ is a multiple punching in column 1 of the card. 

2, The end of file card has a multiple 7,8 punching in 
columns 1 and 2. It signifies the end of the job. 
(EOF cards used on other systems that use 
12 2 
1 1 

44 in column 1 thru 4 are also acceptable.) 

7 7 7 7 



STUDENT NOTES 




COMPASS INSTRUCTIONS 


3.1 LOAD INSTRUCTIONS 

3.1.1 Load A 

3.1.2 Load Q 

3.1.3 Load Index 

3.2 STORE INSTRUCTIONS 

3.2.1 Store A 

3.2.2 Store Q 

3.2.3 Store Index 

3.3 ARITHMETIC, FIXED POINT, 24-BIT PRECISION 

3.3.1 Add to A 

3.3.2 Subtract from A 

3.3.3 Multiply A 

3.3.4 Divide A 

3.3.5 Replace Add 

3.4 REGISTER OPERATIONS WITHOUT STORAGE REFERENCE 

3.4.1 Increase A 

3.4.2 Increase Q 

3.4.3 Increase Index 

3.4.4 Enter Register 

3.5 JUMP INSTRUCTIONS 

3.5.1 Unconditional Jump 

3.5.2 Compare A with Zero, Jump 

3.5.3 Compare A with Q, Jump 

3.5.4 Return Jump 

3.5.5 Unconditional Halt 

3.5.6 Selective Jump 

3.5.7 Index Jump (Incremental/Decremental) 

3.6 SKIP INSTRUCTIONS 

3.6.1 Skip if Equal 

3.6.2 Skip if Greater Than or Equal 

3.6.3 Index Skip Incremental/Decremental 

3.7 STORE WORD ADDRESS 

3.8 SHIFT INSTRUCTIONS 

3.8.1 Shift Instruction Format 


Chapter 


3.8.2 


Shift A and Shift Q 



3.1 IX)AD INSTRUCTIONS 


3 *1«1 Load A 


■>! 

mm^ nm 



LDA, I 


m,b 





23 18 

17 

16 15 

14 

00 


1 

Lil 


m 


a « addressing mode designator 
b » index designator 
m » storage address. 


Description s Loads A Register with the 24-bit contents of storage 
address H, where M > m+(B^). 

NOTE: ( ) indicates contents of. 

Examples : (i) If the contents of location 100^ in memory is 

52307777 > what will be the contents of A after 
execution of the following statement? 

LDA 100B 

Answer : (a) « 52307777 

(ii) If location lOOg is called by the symbolic 

address L0C, what will be the contents of A 
after execution of the following statement? 

LDA I^C 

Answer ; (a) - 52307777 

(iii) A block of memory in octal is as follows: 


00 

00 

00 

01 

00 

00 

00 

10 

00 

00 

01 

00 

00 

00 

10 

00 

00 

01 

00 

00 

0 

0 

10 

00 

00 


What will be the contents of A after executic 
of the following statement? 

LDA 

Answer : (A) - 00 01 00 00 


Exercises on Load A : 
(i) L0C LDA 


LDA I^C 

What will be the contents of A at the end of the above section 
of a progcam? 

(The fxmctlon code for LDA » 200). 

(ii) If location 101^ contains 


101 010 

000 oil 

111 110 

001 100 


(in binary) 







3.1.1 (cont«) 


What is the octal amoimt loaded in A as a result of the 
following instruction? 

LDA 101B r c - 3 7 'j ' t' 

If MASK is location 105g, and a block of memory is as follows, 

104 
105 
106 
107 
110 
111 

What will be in A after execution of the following instruction? 
LDA MASK+3 


1234 1234 
7023 1307 
1111 2222 
6073 4261 
3333 3333 
4444 3066 


(iv) The instruction to be executed is: 

LDA =D43 

Which answer gives the correct contents of A after the 
instruction has been executed? 

a. 438 

b. 35 ^q 

c. The contents of location 43 




3ele2 Load Q 


1 LOCMiilIt 

OPEiiAllWJIIgIFillS HSBSCSS RliO 


Ido,i 





. 





23 18 

17 

16 15 

14 

00 


1 

0 

00 

m 


a » addressing mode indicator 
b » index designator 
m = Btor&ge address. 


Description : Load Q with a 24-bit quantity from storage address M 
where M » m + (B^) 

Examples : (i) LDQ MASK 

Load Q with the 24-bit quantity at the 
symbolic address MASK. 

(ii) If MASK contains 00001111 
LDQ MASK 

(q) - 0000 1111 







3«1,2 (cont^l) 


(iii) If MASK = location 104g and a block of memory is 

as shown, what will be the contents of ft after 
execution of the following instruction? 

LDft MASK-4 

76 

77 
100 
101 
102 

103 

104 

105 

106 
107 

(Q) - 11 22 33 44 

Exercises on Load ft 

(l) What will be the contents of ft after execution of each of the following 
instructions? (The block of memoiy to be used is shown below). 

00267 


100 


(a) 

LDft 

272B 

(b) 

LBft 

184 

(c) 

LDft 

I^(C-3 

(d) 

LDft 

lfJC+2 


( 2 ) If PLAGE » location 2617 q» and a block of memory is as shown, 


00 

00 

01 

01 

20 

10 

40 

40 

11 

11 

17 

17 

20 

0 

CM 

0 

CM 

20 

~ 

25 

34 


60 

60 

60 

60 

21 

22 

CM 

24 

10 

00 

00 

10 


14 

00 

00 

20 

25 

25 

52 

52 

11 

22 

33 

44 

55 

66 

77 

00 

17 

53 

17 

53 

20 

64 

20 

64 

31 

75 

31 

75 

42 

06 

42 

06 

53 

17 

53 

17 

64 

20 

64 

20 


01 

47 

26 

35 

12 

50 

37 

46 

23 

61 

40 

57 

34 

72 

51 

60 

45 

03 

62 

71 

56 

14 

73 

02 

67 

25 

04 

13 

70 

36 

15 

24 

01 

47 

66 

65 


02616 





3,1,2 (cont,2) 


What will be the contents of Q after execution of each of the 
following instructions? 


(a) 

LBQ 

2613B 

(t) 

LDQ 

PIACE-1 

(c) 

LBQ 

PIACE+3 

(d) 

LDQ 

1427 


3»1,3 Load Index 




1 i tniyt m,b 



23 18 17 16 15 14 00 


54 

0 

b 

m 


a * addressing mode designator 
b - index desigiiator 
m = storage address 

Description : Load Index Register with the lower 15 bits of the 

contents of storage address m, No address modification 
using index registers is possibleo 

”b** indicates which index register is to be loaded. 

Egamples : (i) If (ci0) - 12345670 

What will be the contents of index register 2 as a 
result of the following instruction? 

LBI GljJ, 2 

Answer : - 45^70 

(ii) A block of memory is as shown: 



The index registers are as follows: 

B1 
B2 
B3 

What will be the contents of the registers after 
the following? 

LDI L0C+3,3 
LSI I^C+6,1 
LDI I^C,2 


0 0 0 0 2 


0 0 0 1 4 


7 7 7 7 3 








3,1,3 (cont>) 


Answer : « 34414 

» 00001 
B^ « 10404 

Exercises on Load Index instruotion 

(l) What will he the contents of the index registers after execution of 
each of the following instructions, if 

(cab) = 00100001 
(STjZJRE) - 77777771 
(temp) « 40100010 
(high) » 20002020 
(I^C3) - 33003303 


(a) 

LBI 

CAB,1 

W 

LBI 

HIGH,3 

(c) 

LBI 

ST(Z(EE,2 

(d) 

LBI 

TEMP,1 

(e) 

LBI 

1^03,3 

(f) 

LBI 

HIGH,2 


( 2 ) A block of memory is as shown: 


00 

00 

00 

21 

04 

04 

04 

04 

32 

57 

14 

13 

51 

21 

41 

61 

00 

00 

00 

00 

21 

04 

00 

10 

12 

74 

11 

11 

"00 

07 

77 

"tT 


If TAG a Location 410-, what will be the contents of the Index 
o 

registers after execution of the following instructions? 


(a) 

LBI 

TAG- 2,3 

(b) 

LBI 

TAG+4,1 

(c) 

LBI 

411B,2 

(d) 

LBI 

TAG, 1 

.(e) 

LBI 

TAG+2,3 




3.2 STORE INSTRUCTIONS 


3.2,1 Store A 


1 mmm 

kmm$ Flag 


ST A, I 


m > b 








23 18 

17 

16 15 

14 

00 


40 

Q 

Q 

m 


a = addressing mode designator 
b = index designator 
m = storage address. 

Description : Stores the contents of the A Register in storage 

location M. (M = m+(B^)). Contents of A are unchanged. 

Examples s (i) STA H0LD 

The value in A is stored in the location specified 
by the symbol H0LD. 

(ii) (A) - 1212 3434 

TEMP * Location 1010 
HJZfLD » Location 103 q 


100 

101 

102 

103 

104 

105 

106 

107 

110 


o 

o 

00 

00 

00 

11 

11 

11 

11 

22 

22 

22 

22 

33 

33 

33 

33 

44 

44 

44 

44 

55 

55 

55 

55 

66 

66 

66 

66 

77 

77 

il 

77 

o 

o 

00 

00 

00 


TEMP 

HOLD 


lhat will be contained in the above block after the 
following I 


LDA 

100B 

STA 

TEMP+2 

LDA 

Hj^LI)-2 

STA 

106B 

LDA 

H0LIM-5 

STA 

TEMP 


Answer ; 

100 

101 

102 

103 

104 

105 

106 
107 
110 


00 

00 

00 

o 

o 

00 

00 

00 

00 

22 

22 

22 

22 

o 

o 

00 

00 

00 

44 

44 

44 

44 

55 

55 

il 

55 

11 

11 

11 

11 

77 

77 

77 

rT 

O 

O 

00 

00 

00 












3«2,1 (cont>) 


Exercises on STA Instruction 

(i) If TEMPY is location 302^, and the block of memory shown 

o 

results from the following instruction 
STA TBMPTH 

What were the contents of A before execution of the instruction? 

301 
302 

303 

304 

305 

306 
307 

(ii) If H^LD - Location 103 q and TAG - Location lOlg, what will he 

the contents of the block of rn^pr^- below after execution of 
the following instructions? 

LDA Hf^LL-l 

STA TAG+3 

100 
101 
102 

103 

104 
105 
106 

(ill) If the aboTe instructions were follCwed by 

LM 101B 

STA 69 

LDA TAG+5 

STA TAG -1 

LDA H0LD 

STA H^LD+3 

What would be the final contents of the block of memory? 





a - addressing mode designator 
b - index designator 
m m storage address 






3,2,2 (cont,) 


Desoription : Stores the 24^bit quantity in Q at address 


Example s 


where M » m + (b”) 


LBQ 

STQ 


BESULT 


(- 41 00 05 00) 


EBSULT 


ORGR 

BSS 


500B 

1 


Exercise : 


What would be the contents of RESULT after execution 
of the above? 

Answer ; RESULT » 41 OOO 5 OO 


A block of memory is as shown: 
L^C 


MASK 


20 

00 

01 

00 

00 

00 

04 

01 

00 

04 

44 

00 

21 

CM 

25 

27 


04 

07 

04 

12 

34 

56 

o 

00 

00 

00 

01 


What will be its contents after execution of the following? 


LDQ 

1,00+3 

STft 

L0C+1 

LDQ 

L0C+2 

STQ 

MASK+1 

LDQ 

MASK-4 

STQ 

L0C+6 


3*2,3 Store Index 


lOCMiON-_OI> ESA]ja HJ OlliREI $ ^O RESS HEll 

^ ^ ^_ jjS I_ ^ 


23 18 17 16 15 14 00 


LJL- 

E 


m 


a * addressing mode designator 
b = index designator 
m - storage address 

Description : Store the (B“) in the lower 15 bits of storage address m. 
R,B . The upper 9 bits of m remain unchanged. ”b" 
indicates the index register. If b * 0, the lower 
15 bits of **m” are set to zero. 







3.2.3 (cont.) 


Examples : 


(i) STI 


TMP2,2 


where 


(TMP2) 

40063636 


(B^) 


40050012 

63636 


(ii) 


After execution (TMP2) 

If (fielm) - 31244444 
(change) « 11111111 

What will be the contents of TEMPY after 
execution of the following? 


(iii) 



LBA 

FIELLA 


STA 

TEMPY 


LHI 

CHANGE,3 


STI 

TEBCPY,3 

Answer: 

(TEMPY) 

- 31211111 

If (B^) - 

00502 


STA 

** 


LDA 

*-i 


STA 

HJZfLD 


STI 

H^LD, 

1 

What will 

he the 

contents of HJ^LD' 

Answer: 

(H0LD) 

= 4000 0502 


Exercises og Store Index instruction 

(1) 


(2) 


If (L^C) = 21043072 
(B^) = 00004 

What will he contents of L^C after execution of the following? 

STI L^C,2 

If (L0C) - 21043072 

(TEMP) - 00140001 

What will he the contents of L^C and TEMP after execution of the 
following? 


(3) 


If (temp) . 

What will I 
following? 


LDA 

L^C 

LDI 

TEMP, 2 

STA 

TEMP 

STI 

TEMP ,2 

(big) - 

77777772 , 

of TEMP 

and BIG a 

LDA 

TEMP 

STA 

H^LB 

LDI 

BIG ,3 

STI 

B^^LD 

LDI 

TEMP ,3 

STI 

BIG ,3 

LDA 

H^LD 

STA 

TEMP 


00000001, 



3.3 ARITHMETIC, FIXED POINT, 24-BIT PRECISlOH 


3 . 3.1 Add to A 


Description : 

Examples : 


mmm ^^cif!ehs fieii 




Ptfb 










23 18 

17 

16 15 

14 


00 

30 

□ 

b 

C 

m 

Z] 


a = addressing mode designator 
b = index designator 
m = storage address 

Adds the 24 bit quantity located at address M to the 
contents of Register A* The result is stored in A. 

M = m + (Bl3). 

(i) If (I00g) = 10001010 

(A) = 00077777 

What will be the contents of A after execution of 
the following instruction? 

ADA 100B 

Answer : (a) = IOIOIOO 7 

(ii) If 0PR =* location 100 q in the block of memory shown, 
what will be the contents of A and index register 2 
after execution of the following? 


« 00014 


LDA 

0PR+2 

STA 

0PR+4 

LDA 

0PR+3 

ADA 

0PR+4 

STA 

0PR+2 

STI 

0PR+2,2 

LDA 

0PR+5 

ADA 

0PR+2 

LDI 

0PR+1,2 


Answer : 

(A) - 55201034 


100 

0 0 0 0 0 0 1 1 

101 

00141310 

102 

21000005 

103 

'.140140 00 

1 Q 4 

00771 777 

105 

2 0 2 0 1 0 2 0 









3>3>1 (cont») 


Exercise : 

A block of memory is as shown: 


00 

00 

00 

01 

00 

00 

00 

02 

8 

00 

00 

03 

0 

0 

00 

00 

04 

0 

0 

00 

00 

05 

0 

0 

00 

00 

06 

00 

00 

00 

07 

0 

0 

00 

00 

10 


(a) Write a program segment which will add together the contents 
of locations 100, 102, IO 4 and 106 and store the result in 

107. 

(b) Write a program segment which will add up locations 101 
and 102 and store the result in 103> add 103 and IO 4 and 
store the result in IO 5 , and add IO 5 and 106 and store 
the result in IO 7 . 


3«3o2 Subtract from A 


SB^jI ntyb 


23 18 

17 

16 15 

14 00 

Ulj 

liJ 


m 


a = addressing mode designator 
b =» index designator 
m =* storage address 


Description : Subtracts the 24-bit quantity located at address M 

from (a). The difference appears in A. M = m + (B^). 

Examples : (i) If (a) *. IO 4 O 4 O 4 O 

(100^) . 10303030 

SM 100B 

Answer : (A) » 00101010 

(ii) If (A) - 04444444 

(TEMP) - 02132132 

SBA TEMP 

Answer : (a) = 02312312 





3.3*2 (cont«.) 


(iii) 

TEMP 


What will be in this section of memory after the 


following? 


LDA 

TEMP 

AM 

TEMP+6 

STA 

TEMP+2 

SBA 

TEMP-rt 

STA 

TEMP+5 


Answer; 



Exercises on Subtract from A 

(a) Lm =D401 
SM =D30 

What will then be the contents of A? 

(b) If (c0DE) = 00000001 

What will be the contents of H0LD after the following? 


LDA 

C^DE 

AM 

C0DE 

STA 

H^LD 

AM 

H^LD 

STA 

H^LD 

AM 

Hji^LD 

AM 

HjZiLD 

STA 

Ej^LS 


(o) Write a program segment to multiply the contents of X by two and 
subtract from the answer,the contents of locations Y and Z* 

Store your answer in AKSflER. 






3*3,3 Multiply A 


mM,j . 

23 18 17 16 15 14 00 


1 50 

Q 


m 


a = address mode designator 
b = index designator 
m = storaige address 


Description : Multiply the contents of A by the contents of Address M. 

The 4 Q-bit product appears in QA. with the lowest order 
bits in A. 

Iff « m + (B^) 


Examples: 


(i) What will be the contents of QA after execution 
of the following instructions? A contains 100^. 
and TABLE contains 5, 


STA SUM24 
LDA TABLE 
MBA SUM24 


Solution : SUM24 
A 


QQ 00 01 00 
00 00 00 05 


Answer = 


Q 


00 00 00 00 


00 00 05 00 


(ii) If TABLE contains 5 and A contains 2 OOOOOOO 3 , ^^at 
will be the contents of QA after execution of the 
following instructions? 

STA SLT124 

LDA TABLE 

MUA SUM24 


Solution: 


SUM24 

A 


20 00 00 00 
00 00 00 05 


Answer = 


S. _ A __ 

00 00 00 01 20 00 00 00 


Exercises on Multiply A Instruction 

(a) If (A) - 10 , (TABLE) = 3 , (SUM24) = 5 , and (H(JlD) = 0 

what will be the contents of A after execution of the following 
instructions? 


MDA 

TABLE 

STA 

H^LD 

LDA 

SUM24 

MDA 

TABLE 

ADA 

EfiLD 











3,3>3 (cont,) 


(b) A block of memory is as shown 


00 

00 

00 

01 

00 

00 

00 

02 

00 

00 

00 

03 

00 

00 

00 

04 

00 

00 

00 

05 

00 

00 

00 

06 

00 

00 

00 

07 

QO 

00 

00 

10 


Write a program segment to add the contents of 100 and 101 
multiply the result by the contents of 102, add the contents 
of 103j 104 and 105 > multiply the result by ( 106)9 and then 
add ( 107 ). Store the result in 100. 

(c) What will be the contents of A after execution of the following 
sequence of instructions, if the initial contents of A = 0, 

{0m) - 6, (TW^) = 2, (three) - lO^Q. 


ADA 

0NE 

MDA 

TW0 

SBA 

THRffi 

mha 

0NE 

MHA 

ms 

SBA 

TW0 

ADA 

TEHEE 


3.3.4 Divide A 




23 18 

17 

16 15 

14 00 

1 

Q 

\_l\ 

m 


a = addressing mode designator 
b « index designator 
m * storage address 

Description : Divide the 48 bit quantity in AQ by the quantity in 
storage at address M (M = m + (B^^)), The quotient 
appears in A, and the remainder with its sign extended 
appears in Q. 

If a divide fault occurs, the instruction halts and the 
program advances to P + 1. (The contents of A and Q. 
are usually meaningless in this case.) A divide fault 
occurs whenever the number of leading sign bits 
(0 or 1, ie, + or -) in M is greater than or equal to 
the number of leading sign bits in AQ. A fault can 
also occur if the number of sign bits in M is one less 
than that in AQ; however, the actual number in M and 
in AQ now has to be considered. Since the number in 
AQ is usually achieved by shifting AQ 24 bits to the 
right, extending the sign thru A into Q, an overflow 
rarely occurs. 

— __ 

^Quotient greater than 2 -1 





3.3.4 (cont.) 


Example: 


If (AQ) = 00000000 37777777 


and (D) = 00000001 


What will be in A and Q after execution of: 


Answer; (A) 


37777777 = Quotient 


(Q) = 00000000 = Remainder 

Divide Fault bit = 0, ie, ’No Divide Fault" 

Note: Had the initial contents of AQ been just one 

nxjmber larger, a Divide Fault would have occurred. 


Exercises: 


(a) If (a) = 0000 0000 

(Q) » 0000 4040 
(TAG) = 0000 2000 

What will be in A and Q after execution of the following instruction? 
DVA TAG 

(b) If (A) - 00000000 

(q) - 00000122 

(LOC) - 00000005 

What will be in A and Q after execution of the following instruction? 


(c) If (A) - 7777777 

(Q) - 7777771 " 

and Index Register 2 contains 00003 

What would be in A and Q after the instruction: 


XaG 0000 0007 

0014 0140 
0771 7717 
0000 0004 
a: 7777 7773 


DYA TAG,2 

(d) If Index Register 2 contains 4> TAG is as above, and 
(a) and (q) are as shown: 


7777 7777 7777 7771 

What would be in A and Q after execution of the following 
instruction? 

DYA TAG,2 

(e) Draw diagrams of the machine instruction word which would be 
assembled from the following COMPASS instructions: 


(i) DYA 
(ii) DYA 


474B,1 







23 18 17 16 15 14 00 



a = address mode designator 
Id = index designator 
m = storage address. 


Description ; Replace the quantity at address M with the sum of (m) 
and the contents of A register. M = m + (B^) . 

The A register remains unchanged. 

Examples ; (i) If A = 67432136g and 

(INC) = I00g 

STA Lj^C 

LDA INC 

RAD_ L0C 

L0C now equals 67432236B. 

(ii) If (A) = 200« and (iNC) » 5 OO- 
O y 

RAD INC 

Answer ; (INC) = 700 ^ 

Exercise ; 

If (A) - IOOq and (INC) = 20 O 3 


RAD 

INC 

STA 

TEMP 

LDA 

INC 

STA 

0NE 

LDA 

TEMP 

BAD 

INC 

LDA 

INC 

STA 

TW0 

LDA 

TEMP 

RAD 

INC 

LDA 

INC 

STA 

THREE 


What will be the contents of 0NE, TWjrf and THREE? 





3.4 REGISTER OPERATIONS WITHOUT STORAGE REFERENCE 



b = 0 if sign extension 


23 18 17 15 14 00 



b = 2 if no sign extension 


JtflS ___ 

Jj AM 77 : ■ 

23 18 17 15 14 00 



Description : Adds the amount "Y” to the contents of the A register. 

If there is no sign extension specified, only the 15 
bits of are added to A. 

If sign extension is specified, the sign bit of y is 
extended before addition to A. (Hote - if A is 
increased by a negative number, sign extension should 
be used.) 

If (a) » 00 00 00 01 
INA 12B 
(A) - 00 00 00 13 

If (A) - 00 00 00 01 
INA,S 40000B 
(y - 777 4 0000) 

Answer : (A) « 77740001 

Exercises : (ERR0RC) » OOOO 4 O 4 OB 

(a) What will be the contents of ERR^RC after the following? 

LM ERR0RC 
ISA 55565 B 
STA ERRj^RC 

(b) If the instructions had been 

LDA ERR0RC 
m,S 55565B 
STA ERR^RC 

What would have been the final contents of A? 









3,4.1 (Cont.) 


(c) If (ERRpfRG) = 60 ]^q, write the coding necessary to increase 
it to 100 ]^Q, 

(d) If (A) = IO 3 , what will be the final contents of A after 
execution of the following? 

INA,S 77776B 

3.4,2 Increase Q 


JNQ^S y 

23 18 17 16 15 14 00 


I 

□ 

m 

y 


b -- 1 if sign extension 

nui’ Hi na i 

.: 7 i....^.: .."7'r.r'‘.. 

23 18 17 15 14 _00 

I ^5 5 y 


b = 3 if no sign extension 



23 18 17 15 14 00 


15 7 y 


Description : Adds the amount "Y" to the contents of the Q register. 

If there is no sign extension specified, only the 15 
bits of '*¥” are added to Q, 

If sign extension is specified, the sign bit of y is 
extended before addition to Q. (note: if Q is increased 
by a negative number, sign extension should be used.) 


Examples I (i) If (Q) = 00 00 00 20 
INQ 60B 

Answer i (q) « 00 00 01 00 

(ii) If- (q) = 00 00 00 20 
INQ,S 44444B 

(y = 777 44444) 

Answer s (q) = 777 44464 


Exercises: 


(i) If (q) - 57Tq» what will be the result in Q 

after the instruction INQ 547S is executed? 






3«4>2 (cont«) 


(ii) If (ft) - 5 OB, (STACK) « 500B what will be the 
result in Q after the following sequence of 


instructions? 


INft 

100B 

STft 

TEMP 

LM 

TEMP 

RAD 

STACK 

LDft 

STACK 

INft,S 

27711B 


3*4*3 Increase Index 


1 lOG/imN 

OPEfiAIISIIJIKliFIfitS IBDRfSS FlflB 





- . t ^ . .;-l -, r:, ^ ^ ^i i ■ : rr • J* , S'^ 3. 




23 1817161514 00 



0 

b 

y 


b = index register designator 

Description s Adds the 15—oit qiiantity to the contents of the 
index Tegister specified. 

Ebcamples s (i) INI 6,2 where (B^) = 12B 

2 

What will be the contents of B ? 

(B^) = 20B 

(ii) LDI 100B,3 

INI 10B,3 

Nhat will be tbe contents of B^7 
(B^) - (100B) + 10B. 

(iii) If a block of memory is as shown below, what will 
be in the index registers as a result of the 
following* 


20 

00 

00 

04 

40 

10 

00 

21 

60 

00 

00 

01 

77 

77 

77 

77 

00 

00 

00 

20 

04 

01 

07 

01 

22 

22 

33 

33 


LDI 110B,1 

LDI 111B,2 

INI 20B,2 

LDI 113B,3 

INI 70B,3 

Answer * ■ 21B 

Bg - 21B 

B^ ■ 110B 






3.4.3 (cont«) 


Ereroises on Inoreaae Index inatruotlon 
(i) A blodc of memory Is as showit 


00 

00 

00 

01 

00 

00 

00 

10 

00 

00 

01 

00 

00 

00 

10 

00 

00 

01 

00 

00 

00 

10 

00 

00 

01 

00 

00 

01 


Uhat idll be tbe contents of the three index registers after 
execution of the following? 

LM 101B 

HAD 100B 

LDI 100B, 1 

INI 100B,1 

LDI 104B,2 

INI 17777,2 

LDI 106B,3 

INI 100B,3 

STI 106B,3 

LDA 106B 

HAD 106B 

LDI 106B,3 

(ii) If index 1 contains 1, write a program using this 

index to store the numbers 1,3, 5, 7 und 8 in 5 consecutive 
locations beginning at looa1;ion 100. 




3*4,4 Enter Register 


23 18 17 16 15 14 00 



LllJ 

d b 

. 1 

(a) 

d = 1 
b = 2 

mmm SFCRjlTION M0P1E!ER$ usdress held 




23 18 17 15 14 00 

(b) 

1 

14 

6 

y 

d = 1 
b = 0 

mmm 

GPERRIIDHJSDIFIfSS UDOflESS FIEIS 






23 18 17 15 14 00 

lu_ 

4 

y 

(c) . 
1 

d = 1 

7 = 3 

ISOIIDX : iOPEyiSDfl.MOBiFiERS HQDRESS FIFIS 

. <} .... 



23 18 17 15 14 00 


14 

7 

y 


(d) d = 1 
b = 1 

I UCIIIGN QPEIi»liS!iJ§(;!HCSS liSilRfSS FlEil) 

• £A/(Q|^S ' ^ ^ ' 






Enter A 


■N 




Enter Q 


23 18 17 


15 14 


00 


14 




(e) d = 0 

b = index designator 




lOCITION 


:OPERilll0!j,MODIFIERS IDBIltSS FlfiD 


BNI 






L.. 


.^ ^ 


23 

18 

17 

16 15 

14 

00 

14 

Lil 


y 




If b = 

0, this 

is a no-op€ 




Enter Index 












3>4,4 (cont,) 


Description ; The l^-Mt quantity ”y” is entered in the specified 

register. The register is cleared before *'y'’ is entered. 
If sign extension is specified, the sign bit of is 
extended before *V is entered into the register. 


Examples : 


(i) 

ENA 14B 


(A) . 

00 00 00 

(ii) 

ENQ, S 

40001 B 


(q) * 

777 40001 

(iii) 

ENI 

77B,1 


(B^) » 

= 00077 


Exercises on the Ehter Register Instructions 


(l) If (q) * 11025321 , and location TOg contains lOlOlg 
what will be the contents of Q after execution of ohe 
following? 


EffQ 

(2) AA fflA 0 

LDA *-1 

INA 40 

STA AA 


7OB 


( 3 ) 


What will be the contents of storage location ”AA" after 
execution? 


If (FIELD) = 


1010 lOld 


and FIELD * locaton 45^3 


What will be the contents of the A Register after execution 
of the instruction 


ENA 

FIELD 

ENA,S 

0 

STA 

lOOB 

ENI 

10B,1 

INI 

100B,1 

STI 

100B,1 

LDA 

lOOB 

INA,S 

40000B 

STA 

lOOB 

LDI 

lOOB,2 


What will be the contents of A, and B^ after execution 
of the above? 




3.5 JUMP INSTRUCTIONS 


3#5.1 Unconditional Jump 

.KMm ' 'inmm mMP- nvA 

' ~ UJP\l m,b 


23 18 

17 

16 15 

14 00 

1 °.lJ 

Lil 


m 


a = addressing mode designator 

b “ index designator 
m storage address 

Description : Unconditionally jump to address M, where M = m + (B^). 
Examples : (i) E^F LDA 100B 

UJP EJ2fF 

Control will jump back to statement EOF 

(ii) AAA UJP *H-2 (AAA = address 10) 

Program jumps to address 12. 

Where the address to which control is to jiamp is not known 
at the time of assembly, but will be entered in during execution, 
the instruction is usually coded as follows, to enable easy recog¬ 
nition of the statement in assembled programs: 

UJP ** (asBembled as 01077777) 

This causes 1 bits to be set in the address portion of the word, 
and this will be replaced during execution by the actual address 
to which control is to jump. 

SCj2fpE entry to a program takes this form. (See section 2.2#4.3) 

However, in such cases, the contents of the address portion of 
the word may be any legal address. Whatever the address is, it will 
be replaced by the correct address during execution. Thus: 



UJP 

** 


UJP 

* 


UJP 

*+7 

START 

UJP 

START 


will all serve the same purpose, for they will all be modified as 
required in the program, during execution. 




3,5>2 Compare A with Zero, Jump 


23 18 

17 

16 15 

14 00 

1 03 

ill 

□ 

m 


j =jump designator (0-3) 
m = jump address 


(a) j = 0, jump if A = +0 or -0 

m^m ■ oFEHAiioHJiijnEis m u m mu __ 

^.: . j . : ^ L-L \ L_l. i •- i i J J_1, ; i 


23 18 17 15 14 _ 00 

I 03 0 m 


(b) 

j = 1, jump if A ^ +0 or -0 


iiPORESS FlEiP 


k^vN£ . 




23 18 17 15 14 00 


03 1 


m 


(c) j = 2, jxmip if A ? +0 (-0< +0) 


idGirisn 


lOPESS Flap 




23 18 17 15 14 


00 


03 


(d) j = 3, jump if A < +0 (-0<-{-0) 


IdCAIISIf 


OPaiaidNJSD!F!EIIS ASOBFSS FIFIP 


AZJfLT 


23 18 17 15 14 


00 


03 


Description ; (a) are compared with zero to establish test conditions 
as above. If the condition specified by the modifier 
is true, the program jumps to address ”m**. If the test 
condition is not true, RUI from address P -i- 1. (ENI = 
read next instruction). 





















3.5,2 (cont«l) 


Example : If (A) - 1 

(i) What will he the ENI address after execution of 
AZJ,EQ L0^P 

Answer : ENI at address P + 1 

(ii) If the instruction had been 
AZJ,GE L0P 

Answer : ENI at address L00P 

Exercises : 

Given the information below, give the ENI addresses for each problem, 
(i) If (A) - 77777777 



AZJ.EQ 


100B 


ENI - 

__ 


(ii) 

If (A) = 00020000 



AZJ,EQ 


STJ^EE 


ENI - 


7 

(iii) 

If (a) - 00000000 



AZJ,NE 


CAEEY+l 


ENI « 


9 

(iv) 

If (A) - 77777776 



AZJ,LT 
ENI - 


NEXT 

? 

(v) 

If (a) > 03675671 



AZJ,GE 


0m 


ENI » 

_ 

1 

(vi) 

If (a) - 00000000 



AZJ,GS 




RNI = 

— 

9 

(vii) 

ENA,S 


4000IB 


AZJ,GE 


YES 


ENI = 

— 

? 

(viii) 

ENA 


77777B 


AZJ,LT 


MAYBE 


ENI - 


? 

(ix) 

ENA,S 


20741B 


azj,ge 


200B 


ENI « 

* 

7 

(x) 

ENA,S 


32767 


AZJ,LT 


FINISH 


ENI - 


7 



3,5>2 (cont,2) 


(xi) Which Halt will be reached after execution of the 
following program segment? 


LDA 

HZ*423 

SM 

«0424 

AZJjEQ 

HLT 

TJJP 

HLT+1 

HLT 

1 

HLT 

2 


3>5*3 Compare A with Qy Jump 


23 18 17 16 15 14 00 


I 03 

E 

ID 

m 


j =0-3 jump designator (0-3) 
m = jump address 


(a) 

j = 0, 

, jump if A = Q 

(+0 = 

i mim 

0 pEaA]i 8 Hji 8 iFi!i$ leiisrss res 


I =_k 

AQJ.EQ 

! m 





23 18 

17 15 

14 

00 


03 

4 

m 

(b) 

j = 1, 

jump if A ^ Q 

(+0 = 

i 18 CAT{S^ 

0F£gAiiiiijii6ifiFis mmm nm 


AQJyHE 





i 


23 18 

17 15 

14 

00 


1 1 

5 

m 

(c) 

j = 2, 

jump if A ^ -<5 

(40 >- 


IDDMIOh mMSt REill 




23 18 17 15 14 


00 


03 


(d) j = 3, jump if A < Q (+0> -0) 


_^OPeH£iONJS8jf!f^S ypiBS FlElO 

AQJfL,T w _ 


23 18 17 15 14 


00 


03 . 
















3.5,3 (cont*) 


Deacription t The quantity in A is compared to the quantity in Q 
to establish a comparison or test - condition. If 
the test-condition is true, RNI from address ”m”. 
If not true RNI * P+1. 


Examples: (i) 

AQJ,EQ 

L00P 

(a) - 00000000 
(Q) - 77777777 


RNI 

L00P 


(ii) 

AQJ,GE 

RNI 

L00P (40 > 

(A) = 00000000 
(Q) = 77777777 

-0) 

Examples: < 

Given the information 
for each problem: 

below, supply the RNI’s 

(a) 

aqj.lt 

L00P 

(a) -07234567 
(q) -04444444 


BHI . 

^ ^ ^ 

? 

(b) 

AQJ,GE 

L00P 

(A) = 50523417 

(Q) - 23456733 


BHI . 

. ^ ^ 

? 

(c) 

AQJ,NE 

L00P 

(a) - 00 00 00 
(q) - 10 00 00 


BHI « 




3,5.4 _ Return Jump 


jsyiiin_^ __ 

I ..‘T ^. nrj ~' ' ;«r/'; /; 

f ‘ ^ - ^ -.- ----- -.- 


23 1817 


15 14 


00 


00 


Description ; The address portion of the contents of address m is 
replaced by the return address P + 1• The program 
jumps to m + 1, i.e. ENI = m + 1. This instruction 
is used for subroutine linkage. 

Examples : (i) RTJ XS0RT 

Here the address portion of XS0RT will be replaced by 
the address of the RTJ instruction + 1, and the 
program control will advance to XS0RT+1. 




SUHE^ 


ETJ 


[loo] 


stjbbjSjt djp ♦* [ 200 ] 


trjp SEBE^ [ 210 ] 

If the numbers in brackets indicate the addresses of 
the respective instructions, the assembled program 
before execution would appear as: 

00100 00700200 


00200 01077777 

00210 01000200 


After execution the contents of memory would 
appear as: 


00100 00700200 


00200 01000101 


00210 01000200 


Note: ** is assembled as 11111^ and is used 
where the value is to be changed at 
run time, such as the address portion 
of the instruction at address 00200, 
Or, to say it another way, ** = TBC 
(To Be Clobbered.) 



3.5.4 (cont.2) 


Use of the RTJ statement 


There are two types of subroutines used in Cj^MPASS - open and 
closed. An open subroutine is a series of instructions which is required 
more than once during a program, and is inserted where it is required. 


e.g. 



Open 

Subroutine 


This method has obvious disadvantages and it is more usual to 
employ the closed subroutine method. 


e.g. 



What is the problem here? 

It is that the program Jumps to the subroutine from two or more , 
points in the main program,and once the program is in the subroutine, how 
does it know to which main program instruction it should return? 

It doesn’t, since it doesn’t know where the jump to the 
subroutine was located in the Main Program. 









3.5»4 (cont»3) 


This problem is eliminated by using the RTJ (Return Jump) 
instruction in the Main Program when a jump to the subroutine is desired. 
The instruction stores the address of the instruction following the RTJ 
in the lower 15 bits of the first instruction of the subroutine. The 
first instruction is then skipped and the first instruction executed is 
actually the second instruction of the subroutine. 



Following is a section of a Compass Program that illustrates 
this latter method; 


SUB 


ENI 

0,1 

LDA 

lOOB 

SBA 

lOlB 

RTJ 

SUB 

LDA 

105B 

MUA 

155B 

RTJ 

SUB 

LDA 

255B 

INA 

21 

etc. 


UJP 

** 

AZJ.LT 

SUB 

INI 

1,1 

UJP 

SUB 


When the RTJ instruction is encountered, execution jumps to SUB, 
and the address portion of SUB is replaced by the address of the RTJ 
instruction + 1. After execution of the instructions in the subroutine, a 
jump is made back to SUB, which instruction is now an unconditional jump to 
the instruction after the RTJ instruction. Execution of the Main Program 
then continues. 







3.5.5 Unconditional Halt 




C?ERIIIgllJiSIR£i$ HBSRfSS RflP 


HLT 


m 


23 18 17 15 14 


00 


00 


Description : Unconditionally stop at this instruction. Upon 
restarting, RUI from address "m" 


Exeimple : 


CTR.l 


SEVER 


LM 

INA 

STA 

ISE 

UJP 

HLT 

LDGi 

END 


CTR.2 

100B 

Tj2lM,1 

10,1 

CTR.1-3 

SEVEN 

MASK 


3 . 5*6 Selective Jump 

23 1817 


15 14 


00 


00 


J = 1 - 6 = SELECTIVE JUMP switch number 


j = 1, jump if "SELECT JUMP 1" switch is on 

j = 2 , jump if "SELECT JUMP 2" switch is on 

_ 

sJi “* ^ ''7 r~ 

j = 3, jump if "SELECT JUMP 3" switch is on 

c*- :mmn fieip " 

" . . , i SJ3 . tn . , /■“' , . , 



j 4, jump if "SELECT JUMP 4" switch is on 

^ 3PC8riDs,M>isif!fRs mmt nm 

L__.:77 ^ SJ4 "" m . ■■■■ _ . ,"7^‘ 


j = 5, jump if "SELECT JUMP 5" switch is on 

' IgCA KON W£BMj8N.Mi0iFI£R$ OCIB_ 

L':7_i„.'■ j_."'7777^^7 ^7^i ^ • 

j = 6, jump if "SELECT JUMP 6" switch is on 


1 mmm 

OPERAIlBfiJOOIFIfiS iPBRESS flElP 



: W 






j = 0, see HLT instruction 
j = 7, see RTJ instruction 
























3 >5.6 (contQ 


Description : 


Jump to address m if the jump key specified is set ”on”. 
Otherwise RNI P+1. 


Example : 



SJ4 

BYPASS 

CARDS 

LDA 

CIAHD,1 


ADA 

TEMP,1 


UJP 

EBDUTG 

BYPASS 

LDA 

TAPE,2 


ADA 

ST;!IHB,2 

ENDING 

HLT 

1^04 


END 



If jump switch 4 is set ”on" jump to BYPASS otherwise 
RNI at address CARDS. 


3r5*7 Index Jump (Incremental/Decremental) 


23 18 17 16 15 14 00 


1 02 

0 


m 


b = index register designator 
d = 0, Index Jump Increment 

^ IftriTtow 

. IJ J . Wj b 

23 18 17 15 14 _00 

! 02 b m ! 


d = Ij Index Jump Decrement 

■rjngx nan 

IJO " m,b 


23 18 17 15 14 


00 


02 b -j- 4 


Description : Jump to **m** if (B ) / 0 and increment (or decrement) index 
by 1. There are 3 possible conditions: 

(i) If b « 0, the instruction is a no-op. and 
RRI from P + 1. 

(ii) If (B^) - 0 ENI from P + 1. 

(iii) If (B^) / 0, the jump test condition is 
satisfied. One is added or 
subtracted to (B^); jtmip to 
address m and RNI. 

N^-B. The cotmting is done in a one*s complement adder. 
Negative zero is not generated because the count 

progresses .77775» 77776, 00000, stopping 

at JO. If a 1 “ 0 is initially in B^, the count 
progresses 77777? 00001, etc. 







3,5>7 (cont,) 


Examples : 


Exercises: 



mi 

9,2 


LM 

BUi'FBS,2 


STA 

MTA,2 


UB 

I^P,2 


HLT 



How many words will transfer? 

Answer: 




ENI 

-5.1 


LDA 

• 



• 

IJI 

I#P,1 


HLT 

How many times will the loop be executed? 



3,6 SKIP INSTRUCTIONS 


3,6,1 Skip if Equal 



23 18 17 16 15 14 00 


04 

dl b 

y 

(i) 

d = 1 
b == 0 

1 mCATIO)! 

OPERAIiSH J031FiERS A98SESS FIE19 

j. . . . i . . 

|4,3f,.S,_ u .... , 

i > ii 1 J 1 *•:•> i « l-r 1 • 

^ I»5;:« •J’S Jl» i1 «l«{ } t* Jf ii 


23 18 17 15 14 00 


04 

4 

y 

(ii) 

d = 1 
b = 2 

issiiiieM 

:SP[HmN.M§9IFIIiS AOSRtSS FlEll! 






23 18 17 15 14 00 

1 04 

6 

. 1 

(ill) 

d = 1 
b = 1 

i UCAIISil : 0PERili(iH.M3i)IFlf8S MORBS FlEll 

1 i : : . 1 : : i , 

i...^ ... 


23 18 17 15 14 00 


1 04 

5 

y 

(iv) 

d = 1 
b = 3 

Lsmiss ur^ruTiOrt r'CD^r;["5 fitis 

.. i ijp..... 


23 18 17 15 14 00 


04 

7 

_ 

. 1 

(v) 

d = 0 

b = index designator 

LOCinOK 

0PERAIi3N,M38IF!ES$ AiOSESS FICIS 


I5f Myk . . , 




23 18 17 15 14 00 

04 

b 

y 


b== index register designator (1-3) 


If b = 0, y is compared to zero. 














3,6.1 (cont.l) 


Description; If the instruction is ASE, QSE or ISE; 

^^lower 15^ respectively is compared bit fa: 

bit to "y”. If equal, RNI from P+2, otherwise RNI 
from P+1. 

Note; To be equal to "y", the quantities must be 
exactly the same, thus if (A) or (Q) = 
xxxOOOOO or (B^) = 00000, ^'y” must be 00000 
to be equal. Or, if (A) or (Q) = xxx77777 
or (fib) = 77777, "y» must be 77777 to be equal- 
If sign extension is specified, i.e. the instruction 
is ASE,S or QSE,S the sign of ”y" (bit 14) is extended 
and the 24 bit quantity is compared with the quantity 
in the specified register. 

Note: In this case, if (A) or (Q) = 77777777 or 00000000 
and "y” is 77777 or 00000, the quantities are 
considered to be equal. For all other values in 
A or 0, the sign extended "y” value must be 
exactly the same to be considered equal. 


Examples ; 


(i) 

ISE 

300B,2 



If (B 2 ) 

• 300g. 

ENI P + 2 

(ii) 

ISE 

50,1 

(b'') « 62, 


What is 

the RNI? 


RHI * P 

+ 2 



(iii) BEGIN LDQ PIELM 
QSE 6421OB 


* • • 

FIELBA 0CT 50964210 
What is the BNI after QSE? 

BNI = P + 2 (=BEGIN + 3) 

(iv) Example of use of ASB instruction in a loop- 



ENA 

0 


STA 

CIC.l 


STA 

TEMP 


IDA 

*-2 


INA 

1 


STA 

*-4 


LDA 

TEMP 


INA 

5 


ASE 

25 


UJP 

L^P 


HIT 


TEMP 

BSS 

1 


This will store numbers 0, 5, 10, 15 and 20 in 
consecutive locations, begining at location CIC.l. 



3,6.1 (cont.2) 


(iv) 

Use of Index skip-if-equal 


ENI 

0,1 


LM 

VALUE 


MUA 

=D5 


LVA 

=D8 


STA 

RESULT 


LM 

L00P 


IHA 

1 


STA 

L00P 


LM 



IHA 

2 


STA 

*.6 


INI 

1,1 


ISE 

100,1 


UJP 

L00P 


HLT 


VALUE 

0CT 

1 


Exercises on SKIP-if-equal instructions 


(a) How inaiiy times will the following loop be executed? 


L0jZ(P 


ENQ 

0 

LM 

ANS 

MUA 

TW 

STA 

ANS 

INQ 

5 

QSE 

100 

UJP 

L00P 

HLT 



(b) ¥rite a program segment to move ten numbers in consecutive 
locations, beginning at STORE, to consecutive locations beg¬ 
inning at RESULT. 

(c) If check: contains 20100010, how many times will the following 
loop be executed? 


L00P 


LDQ 

LM 

IRQ 


CHECK 


QSE 


HLT 


12 



3»6«1 (cont»3) 


(d) What will he the final contents of HOLD after 
execution of the following? 


Ml 

0,1 

MA 

0 

STA 

H0L1) 

IHA 

10 

INI 

1,1 

ISE 

10,1 

UJP 

*-3 

STA 





3«6,2 Skip if Greater Than or Equal 



(ii) d = 1 
b = 2 



(iii) d = 1 
b = 1 



(iv) d = 1 
b = 3 


mmm \ bEiiTisit jobifiers mmm rias 



(v) d = 0 

b = index designator 


JCMIflU 


,0PERIi1IIINJ0Dir!EllS yOSESS flELR 











3 . 6,2 (cont*) 


Description: If the instruction is ASG, QSG or ISG; 1^)9 

<Qlower 15 ) respectively is compared to ’’y". 

If greater than or equal, RNI from P+2, otherwise 
RNI from P+1. 

Note: If the (A) or (Q) = xxx77777 or (B^) = 77777, 
the instruction will skip if "y” is either 
77777 or 00000. If the (A) or (Q) = 00000000 
or (B^) = 00000, the instruction will skip if 
”y” is 00000 but will not skip if it is 77777. 

If sign extension is specified, i.e. the instruction 
is ASG,S or QSG,S the sign of '’y” (bit 14) is extended 
and the 24 bit quantity is compared with the quantity 
in the specified register. If the sign bits are different 
the one with a sign bit of zero is larger. 

Note: If the (A) or (Q) = 00000000, the instruction 
will skip if "y" is either 77777 or 00000. If 
the (A) or (Q) = 77777777, the instruction will 
skip.if ”y” is 77777 but will not skip if it 
is 00000. 


Examples : (i) If (A) = 00002020 

ASG 2020B 

(A) is equal to y, skip next instruction, RNI at P + 2 
(ii) If (A) = 10000001 
ASG,S 40002B 

y = 77740002 with sign extended 
(A) is greater than y, skip next instruction, RNI at P + 2 


Exercises in SKIP^IF^GREATER-THAN-OR-EQUAL Instruction 


To which 

STOP location will control jump? 

ENA,S 

40000B 

INA 

20B 

ASG,S 

40040B 

UJP 

ST0P1 

ASG 

40020B 

UJP 

ST0P2 

UJP 

ST0P3 


To which 

location will control jump? 

ENQ 

200B 

QSG,S 

128 

UJP 

ENDING 

UJP 

PAUSE1 


How many 

times will the loop be executed? 

ENI 

0,1 

LDA 

PERS0N,1 

MUA 

RATEl 

SHAQ 

24 

DVA 

RATE2 

STA 

TAX,l 

INI 

1,1 

ISG 

500,1 

UJP 

*.7 

HLT 




3,6*3 Index Skip Incremental/Deeremental 


23 18 17 16 15 14 _00 


LiJ 

0 


V 


d = 0, Index Skip Incremental 


1 mmm 

-OFEIAliPJBSiniiS 

kmm$ FiEig 


h : ,., ^ 1 : 

ISI , . , 




i 




23 18 17 

15 14 

00 


10 


b = index register designator 


d = 1, Index Skip Decremental 


mmm 


OPEfiMifijiiDiFiERS mmm fieis 

.i..J 


i. L IJ__ ■ . 





23 18 17 15 14 00 


10 i ^ 4 I _y_ I 

b = index register designator 


JeBcription» If (B^) = y skip to P + 2 and clear the index register. 

If (B ) / y BKI from P + 1 and add 1 to (or subtract 1 
from) the index register. 


Examples : (i) ENI 0,1 

LM BUFFER, 1 

STA DATA, 1 

isi 9 ,1 

UJP *.s 

HLT 


IJhat is this series of instructions doing? 

Answer: Moving 10 words from BUFFER to DATA 

(ii) How can the same problem be done using the ISD instead 
of the ISI? 

Ein: 9,1 

LDA BUFFER, 1 

STA DATA,1 

ISD 0,1 

UJP 

HLT 


Exercise: 


Write a program segment to move 5^ numbers from BUFFER to 
locations beginning at STORE. FIND the total of these 
numbers and store the answer in RESULT. 








ill 


STORE WQBD ADDRESS 


leCHTIM 

ioPESMI0KJ§9IF{!IS APSiUSS FfEll 

: ; ; : t i : 

,,,, ^ ---- 


1 * 

? ::: 1J5Ci i:)!■*: 1ft i jit j>5 •; > 



23 18 17 16 15 14 00 



Descript!on> Stores the lower 15 Mts of (a) in the storage 
location M* The high - order 9 l^its of (^) are 
unchanged* 


Examples: 

(i) SWA INST 

0 

r 

(A) = 17603216 


INST LDA ** 



What will be the contents of INST? 
(INST) = 20077777 (Before) 

(INST) = 20003216 (After) 

(ii) INST LDA *+l 
SWA *-l 


Where INST = 76B, what will be the contents 
of words 76 b and 77B? 

(763) » 20000076 

(77B) - 44000076 


ExerciseI What, if any, is the difference between the modification 

achieved by the two program segments below? 


Program A 


Program B 


LDA F0URO6 

SWA INST 


LDA INST 

ENA 406 

STA INST 


INST 


ENA 


INST 


ENA 


F0URO6 0CT 406 






3v8 gHIFT JNSTRUCIIONS 


3*8*1 Shift Instruction foimat 


23 18 17 16 15 14 00 



d » an operation designator, which is virtually an extension 
of the function code* It differentiates^between 2 
instructions using the same f code* 


e*g* SHA d « 0 

SHQ d « 1 

b = index register designator 

The contents of the index register is treated as a 
15 bit signed number and is used as a shift direction 
and/or number-of-bits modifier* 

k * Shift count, base 

It may be positive or negative (in complement form) 
depending on the direction of the shift. 


Left shift “ positive 
Sight shift = negative 


K = shift count, actual 

K = (B^) + k if b ^ 0 otherwise K = k if b = 0. 

If the sum is 77777g or larger, subtract 11111^ to get 
the true sum, otherwise the sum is the true sum. 

If the true sum is between 00000 and 37777g, the 
righthand two octal digits are the actual shift 
count for a left shift. If the true sum is between 
40000 and 77777s, complement of the righthand two 
octal digits are the actual shift count for a right 
shift. 


Shift 

timing if K 

== + (use only 

lower 2 digits of K)" 


xO xl x2 

x3 

x4 

x5 

x6 

x7 


Ox 

1.3 usee 







lx 








2x 

1.45 usee 






Mx + xN = 

3x 

1.7 usee 






octal shift 
count 

4x 

1.95 usee 







5? 

2.2 usee 







6x 

2.45 usee 







7x 

2.7 usee 








K = -, complement and use the lower 2 digits 


to determine 

the 

t iming 








3,8.2 Shift A and Shift Q 


mmm 



Mmm 


Description ! 


23 18 

17 

16 15 

14 00 

J 

2 


k 


d = 0, Shift A 


mmmMmmm 

nm 

SHA 


k»k 



23 18 

17 

15 

14 00 

1 

b 

k 


b == index register designator 


d = 1, Shift Q 

CPCfiAMN MSLTHEHS _ _ 

^. 

23 18 17 15 14 _ 00 

12 b + 4 _k_ 

b = index register designator 


The 24-'bit contents of the register are shifted 
according to the magnitude and sign of K (i.e., 
k + b) 

If K is +, instruction is left shift end around 

If K is instruction is right shift end off 

e.g. Shift left 6 positions; K « 00006 
Shift right 6 positions; K « 77771 

K.3. (i) During right shift, the sign bit is extended 

and the low order bits are discarded. 

(ii) During left shift, the high order bits are 
brought end around. 

(iii) (B^) and k^ with their signs extended , are 
added to give K. The computer then senses 
bits 00-05 and bit 23 to determine the 
size and direction of shift, respectively. 







3 >8,2 (cont>) 


Examples of Shift A and Shift Q 


(i) 

SHA 

6 

(A) 

- 10203040 


After 

Shift 

(A) 

« 20304010 

(ii) 

SHjjll 

-6 

(A) 

= 12345671 


After 

Shift 

(A) 

« ? 


<A) - 

00123456 



(iii) 

SHA 

-6 

(A) 

= 50367123 


After 

Shift 

(A) 

= ? 


(A) - 

77503671 




Exerciseson Shift A and Shift Q 

(a) If (A) = 20000010 

■What will "be the contents of A after 

SHA 4 
SHA .-4 

(b) If (A) = 21354706 

What will be the contents of A after 

BHI 2001,1 
SHA 8,1 

(c) If (q) = 10000001 

What will be tbe contents of Q after 
SHQ 6 

(d) If (q) = 12345670 

What will be the contents of Q after each shift in the 
following? 


ENI 

307,2 

SHQ 

4,2 

SHQ 

-13 


(e) If (label) = 10421045 

What will be the contents of LABEL after 


LDA 

LABEL 

SHA 

-15 

STA 

LABEL 

LDQ 

LABEL 

SHQ 

1404B 

STQ 

LABEL 



STUDENT NOTES 




INSTRUCTION MODIFICATION 


4.1 SIGN EXTENSION 


4.2 ADDRESS MODES 


Chapter 


4.3 


INDEX MODIFICATION OF WORD ADDRESSING INSTRUCTIONS 



4*1 SIW KTENSIOH 


Certain instructions 

offer the option of extending the sign 

of a t5 or 

17 -Mt operand by putting a modifier in the operation 

field. 





E2TA,S 

0^3708 

(a) - OOOO637O 


764 32B 

(Q) - 77776432 

Exampless 




(i) 

AS£,S 

77777B 

where (a) - 77777777 


What 

: is RBTI address? 


HNI 

from P + 2 . 


(ii) 

£a9A,S 

-6 

what will be (A)? 


(A) 

- 77777771 


(iii) 

S 

405B 

what will be IQ)? 


(Q) 

- 00000405 


(iv) 

£IIA,S 

7B 

what will be (a)? 


(A) 

. 00000007 


(v) 

£ 2 IQ,S 

43125B 

what will be (q)? 


(Q) 

- 77743125 


(vi) 

Where (q) - OOO54631B 



54631 B 

will result in the RNI being 


^a) P 

+ 1 or (b) 

P + 2? 


Answer t P + 1 


(vii) 

ASG,S 

43671 B 

where A « 43^71234 


what is BMI? 

Answer i "y” extended » 7774 3671 

(A) is not greater than or equal to "y”, 

because is less negative# 

(A) = -.34106543 
y = -00034106 


RNI at P + 1 



4>2 KDimSS MODES 


There are three address inodes as follows; 

(a) Ifo address 

e.g. Operand ENA iOB 

Shift count SHAQ 5 

(b) Direct Addressing 
a » 0 

m - operand address 

e.,g. LM 45^ will load the contents of word 

455 into the A register. 

(c) Indirect Addressing 
a « 1 

e^ge LDAjI m the "I" specifies indirect 

addressing and generates a 
"1" bit in bit 17* 


The best way to explain is with the following flow 
chart and examples. 




Execute, | 
using address 
M 



Examples; 

In the following examples use the contents of these 5 

words 


100 

26000101 


101 

37421623 

(B^) = 2 

102 

00000103 


103 

76543214 

(B^) = 4 

1.04 

40500100 







4.2 (cont.) 


(i) LM lOOB 

What will he the (A) after execution? 
(A ) » 26000101. 

(ii) LDAjI lOOB 

What will he the (a) after execution? 
(A) - 37421673 

(iii) LDA,! 100B, 1 

What will he the (a) after execution? 

(A) = 76543214 

(iv) LDA,I lOOB,2 

What will he the (a) after execution? 



4>3 INDEX MODIFICATION OF WORD ADDRESSING INSTRUCTIONS 


The 3200 has 3 Index Registers each of 15-bit capacity. These 
Index Registers can be used to modify the address fields of many instructions. 

e.g. LM STOEJE will load the contents of STORE into the A 
Register. Rut LM STORE^1 will load the contents of 
(STORE + (B^)) into the A Register, (i.e. if (Bj » 1, 
it will load STORE-HI). 

How is an indexed instruction assembled? 

LM STORE,2 where STORE « 00142B will assemble as: 20200142 
Why? 


i mmm 


mmm RfU 


I. 

LDA 


m^b 



23 18 

17 

16 15 

14 

00 

20 

a 

b 

m 



a = addressing mode designator 
b = index register designator 


b = 00^means no index register 
b = OI 2 means index register 1 
b = I0j, means index register 2 
b = 11^ means index register 3 


Example LM TAG,1 where (B^) - 3 IOO 

11111111 

and TAG = lOOB 101 

22222222 

102 

33333333 

103 

44444444 

104 

55555555 

(A) = 44444444 


Restrictions on Indexing 



The following instructions cannot specify indexing. 


LBI 

ISE 

IM 

STI 

ASE 

IHQ 

IRI 

QSE 

ERA 

EHI 


EHQ 



AQJ 



AZJ 


Exercises on Index Modification * 

1* A block of memory is as shown: 

TABLE 00000000 

n 111111 

’2222222F‘ 

33333333 
TABLEX 44444444 
" 55555555 “ 

66666666 


^Additional material 
on Index Modification 
is located in Chapter 


8.3 


77777777 








4,3 (cont.) 


2 . 


What will he the contents of memory as a result of 
the following: 


BNI 

0,1 

LBA 

TABLE ,1 

STA 

TABLEX,1 

IHI 

1,1 

LJDA 

TABLE,1 

STA 

TABLEX,! 

INI 

2,1 

LDA 

TABLE,1 

STA 

TABLEX,! 


A block of memory contains the values shown 


TAG 


What will be contained in the block after execution of the 
following instructions: 


ENI 

0,1 

LBA 

100 B, 1 

INI 

2,1 

STA 

100 B ,1 

mi 

3,2 

LBA 

100 B ,1 

STA 

100B,2 

ENI 

5,3 

LBA 

TAG-6,3 

STA 

TAG,! 

STA 

TAG,2 


00000001 


00002222 


00000303 


04040404 


50055005 

06606606 


77777777 


00000000 


11111111 




48-BIT OPERATIONS 


5.1 load AQ 


5.2 STORE AQ _ 

Chapter 


5.3 


SHIFT AQ 



5,1 LOAD AQ 


Description ; 

Example ; 


Exercises: 


-11^ esiTFSS hhi 

LDAQ,J m,b ’ 7r T” 


23 18 17 16 15 14 00 


Liii 

a 


_ :: _ 1 


a = addressing mode designator 

b * index designator 
m = storage address. 

Loads Registers A and Q with the two words from ^ 
address M and M + 1 respectively, where M * m + (B ). 

(SUM48) -= 11 11 11 11 
(SUM48-fl) = 22 22 22 22 


LDAQ 

A 


SUM48 


AQ 


is_ 


11 11 11 11 


22 22 22 22 


(i) A block of memoiy is as follows; 


103 

1111 1111 

104 

2000 2000 

105 

6666 6666 

106 

232 3 2323 

107 

0111 1110 

110 

7070 7070 

111 

3333 4444 


This has been set up by a subprogram, part of 
which wasE 

ORGR lOOB 

BSS 5 

FIELD BSS 3 


What would be the contents of AQ after execution 
of; 


LDAQ PIELD+3 






5»1 (cont>) 


Exercises: (Continued) 

(ii) A block of memory is as follows^ 

77 
100 
101 
102 

103 

104 

105 


A portion of a 

program reads: 

LDAQ 

TABLE 

LDl 

TABLE4-3 

STA 

TABLE+2 

STQ 

TABLE4-1 

OBGR 

100B 

TABLE BSS 

10 


liOiat would be the contents of the block after 
execution of the above program? 


11 

11 

11 

11 

22 

22 

22 

22 

33 

33 

33 

33 

44 

44 

44 

44 

55 

55 

55 

55 

66 

66 

66 

66 

77 

77 

77 

77 




5.2 STORE AQ 


r^JsnaN npMm nm 

STAG,I myk 7 


23 18 17 16 15 14 00 


1 45 



m 


a = addressing mode designator 
b s= index designator 
m = storage address 


Description ; Store the contents of Registers A and Q in storage 
locations M and M + 1 respectively. 

Example ; (i) If (a) = 1111 1111 

(Q) = 3333 3333 


i.e. AQ 


11 11 11 11 


33 33 33 33 


What will be the contents of locations 100 q and 
lOlg after execution of the following instruction? 

STAQ 100B 


Answer : (00100) = 11111111 

(00101) = 33333333 

(ii) If FIELD = location 2040 

(A) = 22334455 
(q) = 66006600 

STAQ FIELD 

Answer : (FIELD) becomes 22334455 

(FIELD + 1) becomes 66006600 


Exercise ; 

100 
101 
102 

103 

104 

105 

106 

What will be the contents of the above after 
execution of the following instructions; 


LDAQ 

102B 

STAQ 

105B 

LDAQ 

100B 

STAQ 

104B 


2 

0 

0 

0 

0 

0 

0 

1 

3 

0 

0 

0 

1 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

2 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

4 

0 

1 

4 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 






5,3 SHIFT AQ 


mmm _ mMi$ fiei i _ 

^ ; S tfAQ 2. i.X. 

23 18 17 15 14 _ 00 

13 _b_k_ 

b = index register designator 

Description s The contents of A and Q are shifted as one 48->bit 
register (AQ). 

Everything else is the same as for SHA and SHQ. 
Examples : (i) SHAQ -12 where (a) «= 12345 677 

(q) = 22223333 

What will he the contents of A and Q? 

(A) - 00001234 
( q ) - 56772222 

(ii) If (A) - 00010444 and (Q) = 11335577 
SHAQ 35 


Answer t (a) = 66774000 
(q) = 42220455 






STUDENT NOTES 




48-BIT, FIXED POINT, ARITHMETIC 


6.1 ADD TO AQ 


6.2 SUBTRACT FROM AQ 


6.3 ffllUriPLY AQ 


Cl^apt«r 


6.4 


DIVIDE AQ 





lOCAf{0» 


:8PE8ill!9!r,«88inf8S AIStESS RCll 



23 18 17 16 15 14 00 



a « addressing mode design 
b » index designator 
m » storage address 
M = m + (B^) 


Description : Add the 4 B-bit contents of two consecutive 
locations M and M + 1 to the contents of AQ. 
The sum appears in AQ. 



What will be the contents of AQ after execution of the 
following instruction? 

ADAQ 0P48 

Solution : 

Pinal AQ • 



(ii) If (A) - 0000 0123 77 

100 

(Q) - 7000 0000 

(index register 1) = 1 

What will be the contents of A and Q after execution of 
the instruction: 

ADAQ 77B,1 



Solution: 


A 


IQ 










6>1 (cont,) 


Exercises : 

(i) What will be the contents of AQ after execution of the 
following section of a program? 


(ii) 


If (tag) 

(TAG+1) 

(A) 

(Q) 


ENI 

0,1 

SNA 

2431 4B 

STA 

100B,1 

INA 

1474 IB 

INI 

1,1 

STA 

100B,1 

ENA,S 

34567B 

ENQ,S 

15677 B 

ADAQ 

100B 

= 0202 0303 



- 0404 0505 

- 2662 6626 

. 1457 1406 


What will be the contents of A and Q after execution 
of the following instruction? 

AMQ TAG 



6,2 SUBTRACT FROM AQ 


^ 'oPER>H8x,!ii §(iir(E8s iiisf i rss nm _ 

■ '■ _ ^ ^___ m , b ^ ^ 


23 18 17 16 15 14 00 


I 33 

□ 


m 


a « addressing mode indicator 
b * index designator 
m B storage address 
M = m + (B^) 

Description : Subtract the contents of 2 consecutive 

locations M and M + 1 from the contents of 
AQ. The difference appears in AQ. 


Examples : 


(i) 


SBA.Q 

Pinal AQ 



(ii) If (A) . 0 

(q) - 0000 0003 

(tag) . 0 

(TAGfl) - 0000 0004 

What will be in A and Q after execution of the 
following instruction? 

SBAQ TAG 

Answer: 



(using end around borrow in the subtraction) 






6>2 (cont,) 

Exercise I 

(i) (A) - 0005 7777 

(Q) - 7777 0000 

(TAG) = 0000 0234 

(TAG+l) » 5670 0000 

What will be in A and Q after execution of the following 
instruction? 

SBAQ TAG 

(ii) A block of memory is as showni 100 

101 
102 

103 

104 

105 
106 

What will be the contents of AQ after execution of the 
following instruction? 

MQ, S 0 

ENA,S 2222B 

SBAQ 101B 

SBAQ 104B 





6,3 MULTIPLY AQ 


1 IflGilfIflN 

bF£flAli8NjeglFlfRS liOSReSS FIBS 


. . 


= ... . 


23 18 17 16 15 14_00 


1 

Q 

Q 

m 


a * addressing mode designator 
b * index designator 
m » storage address 


Description ! The instruction uses the 48-bit B register to extend 
the precision of AQ (by forming AQjB). 

Muliply the contents of AQ by the 48-bit operand in 
two consecutive locations M and M + 1, where M *= m + (B ) 
The 9 ^^it product appears in AQB, with the least signif¬ 
icant bits inB* 


Example ! 


A IQ 

1 -•— 


■1 

00000000 

— 

76000000 

' 

TAG j 

TAG +1 

00000000 

0 0 0 0 0 0 0 2 


MUAQ TA <3 

The final results in AQE = 
A Q E 


ooeooooo 


00000000 


00000001 74000000 


Exercise! 


A block of memory is as shown 


400 

00 

00 

01 

11 

401 

00 

00 

00 

00 

402 

00 

00 

00 

07 

403 

25 

37 

32 

10 

404 

24 

24 

42 

44 

405 

00 

00 

17 

07 


What will be the contents of AQE after execution 
of the following instructions? 


LDA 

404 B 

S 3 A 

405 b 

STA 

404 B 

LDQ 

404 B 

LDA 

400 b 

MUAQ 

401B 











6o4 DIVIDE AQ 


I USMION_^ 0F Eyil8N Jjl0SFIEj; $ mmUt RH I_ 

__ ___ 


23 18 

17 

16 15 

14 00 

1 

ill 


m 


a « addressing mode designator 
b s index designator 
m * storage address 
M = m + (B^) 

Description : Divide (AQE) by tbe 48 bit contents of two 

consecutive addresses, M and M + 1 . Tbe answer 
appears in AQ, and the remainder, with sign 
extended, in E. 



I 


]^ote : If a divide fault occurs, this operation 
halts, and the program advances to the 
next instruction. 

The final contents of AQ and E are meaningless 
if this occurs. 










STUDENT NOTES 




LOGICAL OPERATIONS 


7.1 LOGIC TABLES 

7.1.1 Logical ”AND« 

7.1.2 Inclusive ’*OR” 

7.1.3 Exclusive "OR" 

7.1.4 Examples of Logical Operations Using Octal Numbers 

7.2 LOAD A LOGICAL 

7.3 LOAD COMPLEMENTS 

7.3.1 Load A Complement 

7.3.2 Load AQ Complement 

7.4 LOGICAL "AND" OPERATIONS 

7.4.1 Logical Product A 

7.4.2 AND of A and y 

7.4.3 AND of Q and y 

7.4.4 AND of Index Register and y 

7.5 EXCLUSIVE "OR" OPERATIONS 

7.5.1 Selectively Complement A 

7.5.2 Exclusive OR of A and y 

7.5.3 Exclusive OR of Q and y 

7.5.4 Exclusive OR of Index Register B^ and y 

7.6 SELECTIVELY SET A 





7«1 LOGIC TABLES 

7*1*1 Logical ”AND» (Logical product) 


A 

B 

c 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 


Note; C is only a "1" if both 
A and B are ”l»s"* 


Example i AND of 1001 and lOlO (binary numbers) 


1001 

1010 

1000 


7*1*2 Inclusive ”0R” (Selective Set) 


A 

B 

c 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

1 


Note: C is a "1" if either or 
both A and B are ”l»s"* 


Example * Inclusive OR of 1001 and 1010 

1001 

1010 

1011 


7*1*3 Etxolusive ”0R" (Selective Complement) 


A 

3 

n 

W 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 


Note: C is a "1” only if 

A and B are different. 


Example t Exclusive OR of lOOl and 1010 

1001 

1010 


0011 





7,1»4 Examples of Logical Operations Using Octal Numbers 


(i) What is the logical "AND" of 43B and 62B? 
Answer z 42 B 

(ii) What is the exclusive "OR" of 7021B and 33B? 
Answer : 701 2B 

(iii) What is the inclusive "OR" of 361B and 403B? 
Answer : 763 B 

(iv) What is the exclusive ”0R" of 361B and 777B? 


Answer z 416 B 




7.2 LOAD A LOGICAL 



23 18 17 16 15 14 00 


[27 

a 


m 


a = addressing mode indicator 
b = index designator 
m = storage address 
M * m+ (B^) 

Description } A is loaded with the logical product (AUD) of Q and 
the contents of location M. In this instruction, Q 
serves as a mask. 


Q 

M 


0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 


Note: The bit in A is 
a "1" only if 
both of the 
corresponding 
bits in Q and M 
are 


Examples : 

(i) LDL 100B 

(A) = 30470230 


100 

101 

102 


32470235 

12345670 

24601357 


Q = I 70770770 1 


(ii) If index register 3 contains 00002 


LDl 100B,3 

M = 00100 + 00002 
= 00102 


octal 

(00102B) = 246013*578 
(Q) = 707707708 


binary 

010 100 110 000 001 011 101 III2 
111 000 111 111 000 111 111 OOO 2 


(A) = 206003508 010 000 110 000 000 011 101 OOO 2 


Answer: (A) = 20600350 











7>3 load CQCPLEHmrS 

7.3>1 Load A Complement 


1 mmm 


mmmMmim nm 




.. ,.. 


, T j 





23 18 

17 

16 15 

14 00 

iVj 

LI 


m 


a » addressing mode indicator 
b = index designator 
m = storage address 

Description : The instruction load A with the complement of 

the 24-bit word located at M, where M * m + (b° 


Examples : 

(i) LCA 


100B 


(a) . 41301256 


100 36476521 

loi l 6754321F 


10 a 42454251 


10 3 72130215 


(ii) If index register 2 contains 00003 

LCA 100B,2 M = 00100 


(b2) = 


(a) = 05647562 


7*3«2 Load AQ Complement 


tsaiiss 

mmm Firii 

1 : : = : , i ^ i 

, nyk . 


;C i;v : 

23 18 17 16 15 14 00 


26 a b m | 


a « addressing mode indicator 
b = index designator 
m « storage address 

Description : The instruction loads A with the complement of 

M, and Q with the complement of M + 1, where M = 

Examples : 

(i) LCAQ 100B (using example above) 

(A) = 41301256 

(q) = 10234567 

(ii) If index register 3 contains 00002 

LCAQ 100B,3 H - 00100 + (b3) = 00102 

(A) = 35323526 
(Q) » 05647562 


00103 


m + (B-^ 











7,4 LOGICAL OPERATIONS 


7,4,1 Logical Product A 


GPEfiitiisHjooiFim mm% fsei b 

Z 7" . 7 «_" 


23 18 

17 

16 15 

14 00 

iVj 

Q 

Cl] 

m 


a = addressing mode designator 
b = index register designator 
m = storage address 


Description : Heplace (a) with the logical product of (A) and (M) 

(logical AND) 

Examples ; (i) LPA 100B where (100) - 55555555 

(a) = 52525252 

What will (a) be after execution? 

(A) = 50505050 

(ii) LDA MASK where (MASK) = 77777777 

LPA CI0X and (GI^X) = 43752016 

Answer (a) « 43752016 

(iii) BNA,S 20301B irfiere (MASK) = 77777777 

LPA MASK 

Answer (a) « 00020301 

(iv) LDA STATUS where (STATUS) = 10203040 

LPA STATMASK (STATMASK) = 76543210 

Answer (a) = 1OOO3OOO 






7,4«2 AND of A and y 


j mmm 

^ hpERSTIflKJSiliFIERS IDBSESS FlEiS 


. 

. -f = ;»i 



23 18 

17 

16 15 

14 00 

Ld 

1 

lZj 

y 


b = 0 , if sign extension 


IDCITIOH 


biRKimjeiFFEss hmm^ ntii 

J 


ANA,S , i, . 

..4 = 4 , 




23 18 17 


15 14 


00 


17 


b = 2 , if no sign extension 




SfEl?ilTI8IIJ80iFIEiS AiBHESS riELf 



m .;v........ 


: 



23 18 17 15 14 00 



Description; 


Enter the 24 bit logical product of (A) and y (with 
sign extension if specified) into A. If sign extension 
is not specified, zeros are extended rather then the 


sign of y. 



Y 


■ 


0 



0 



0 

■ 

1 

1 


Note: 


The bit in A is a 
” 1 ” only if both 
of the corresponding 
bits in A and y are 
"l»s". 


Examples; (i) ANA 2345^^ 


(ii) 


(iii) 


(iv) 


Where @.)= 12345670 

001 

010 

010 

100 

101 

110 

111 

000 

00023456 

000 

000 

000 

010 

oil 

100 

101 

110 

000014508 

000 

000 

000 

000 

001 

100 

101 OOO 2 

AM, 3 23456 B 









Where (A) ■ 07654321 

000 

111 

110 

101 

100 

oil 

010 

001 

00023456 

000 

000 

000 

010 

oil 

100 

101 

110 

000000008 

000 

000 

000 

000 

000 

000 

CM 

0 

0 

0 

0 

0 

0 

AfTA.S 43456 B 









Where (/I)- 07654321 

000 

111 

110 

101 

100 

oil 

010 

001 

77743456 

111 

111 

111 

100 

oil 

100 

101 

110 

076400005 

000 

111 

110 

100 

000 

000 

000 OOO2 

ABA,S 707073 









WhereCA").. 11111111 

001 

001 

001 

001 

001 

001 

001 

001 

77770707 

111 

111 

111 

111 

000 

111 

000 

111 

111101018 

001 

001 

001 

001 

000 

001 

000 

0012 









rimm o?E8iiioKi8iiini8S usssess nm 


23 18 

17 

16 15 

14 00 

LJ 

0 

Q 

y 


b = 1, if sign extension 


iscimn %?imm MeoiFiif^s yoiiss riiii 

23 18 17 15 14 _00 

1 17 5 y 


b = 3, if no sign extension 


mm _*gp[yTisi([,Mos[iii!is_ 

Sn ::.: 


23 1817 


15 14 


00 


17 


Description: Enter the 24 bit logical product of (Q) and y (with sign 
extension if specified) into Q. If sign extension is not 
specified, ceros are extended rather then the sign of y. 

Examples: As for ANA,S y 


7.4,4 AND of Index Register and y 



23 18 17 16 15 14 _00 

17 0 b Y I 

b - index register designator (l-3) 

Description s Enter the logical product of (B^) and y into index 
register b. 

Examples ! (i) 77B, ^ 

AKI 12B,3 

Index 3 contents = 00077 
»AND*' with 00012 


00012 

Answer * 00012 in index register 3 









7,4,4 (cont,) 


Examples ! (Continued) 

(ii) roi 12345B,2 

ANI 25252B,2 

(Index 3) - 12345 

with 25252 
00240 

Answer i 00240 in index 2 



7,5 EXCLUSIVE OPERATIONS 

7«5« 1 _ Sel^ctively Complement A 




mwm MSDSfiEiis iseifss nm 


$CA,l 









. 



23 18 

17 

16 15 

14 


00 

1 

E 

[!□ 

[Z 

m 

Z1 


a — addressing mode designator 
b = index register designator 
m = storage address 

Description? Selectively complements corresponding bits in A 
all 1 -bits at address M. (Exelusive OR) 


Examples ? 


(i) SCA 


100B 


where (lOO) - 70707070 
(A) - 52525252 

What will (a) he after execution? 

Answer : (A) = 22222222 

(ii) EWA,S 77777B where (MASKS) = 10203040 

SCA MASKS 

Answer : (a) = 67574737 

(iii) BfTAjS 4 OOOIB where (SIGN) = 40000001 


SCA SIGN 

Answer 


« (a) =^377400^h 

(iv) LDA TAG where (TAG) = 77777777 

SCA SETBIT (SETBIT) = 52525252 

Answer : (A) = 25252525 

(v) LDA GTRC where (GTRC) = 40000001 


SCA 


GTRC 


for 


Answer ? (a) « 0000 0000 









7>5>2 Exclusive OR of A and y 


mmm 


jemiFicss mE$$ nm 

= :( = !,= 





23 18 17 16 15 14 00 


16 ll b y 


b = 0, if sign extension 


1 mmm 


MMESs nm 



! ,,,, ^ .. 



23 18 

17 

15 

14 

00 

1 16 

4 

^ 1 

b = 2, 

if 

no 

sign extension 

1 mmm 

1 l3PE8i;il0K,M8DiriEPS 

kmtm nm 



1 1 . ....... 


LL,.... 


r 



23 18 

17 

15 14 

00 

LliJ 

6 

y 


Description; Enter the 24 bit exclusive OR of (A) and y (with sign 
extegistton if speqified) into A, If sign extension ,is 
not specified, zeros are extended rather then the sign 
of y. 


A 

y 

A 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 


Note; The bit in A is a 
"1” only if the 
corresponding bits 
in A and y are 
different* 


Examples g (i) 70A 


OR 


44444B 

38-= 01l2 

48 1002 

Is = Ul2 


33333333 

00044444 


33377777 


= answer 


if A = 33333333 


(ii) Xj^A.S 44444B if A 


33333333 


44444 Is a negative number since 48 = 1002J 
therefore, find exclusive OR of (Aj and 77744444. 


38 = OII 2 
78 = UI 2 
OR = 48 = IOO 2 

3333 3333 
7774 4444 

4447 7777 


answer 














7»5*2 (cont,) 


(iii) X?)A,S 40001B 

Where A = 20117070 

40001 is negative and equals 77740001 with sign 
extended, therefore 

20117070 

77740001 

57657071 


Answer: (A) = 57657071 


7>5.3 Exclusive OR of Q and y 


IfiCATiON 

itsiisfss riCLi 


X^,s . ;« . 


^ • 0 i’? :fli :• * i :a 1 iCi t* »f ?{»*:?•«:»»» »« {WJ 



23 18 17 16 15 14 _ 00 


lie 

E 

Q 

.— 1 


b = 1, if sign extension 


mmn 

iaPERjlTjOK JOBinEIS MBIESS flflB 



. . 


‘.LiiiXlii-iJUI.iiJ 




23 18 17 


15 14 


00 


16 


b = 3, if no sign extension 


lOClIifl!! 

: ;BP[BjillDX,M!EirS HOBiiCSS FIEIB 



3a.,.. 

■ ; J • ? , - ; s : s i - : . ^ 




23 18 17 15 14 00 



Description: Enter the 24 bit exclusive OR of (Q) and y (with sign 
extension if specified) into Q> If sign extension is 
not specified, zeros are extended rather then the sign 
of y. 

Examples: As for X0A,S 





7*5*4 Exclusive OR of Index Register and y 


imim ' 


;8PE§Aiio8jiiiin£i$ mm^ etii 



. I ‘ to . 



r. ■■ “■ . . 


23 18 17 16 15 14 00 


1 . '1- 

0 


y 


b » index designator (l-3) 

Description i Enter the exclusive OR of (B^) and Y into 

Ho sign extension is possible on either (B ) or j* 

Examples ^ (i) X^I 77B, 1 

where index 1 contains 32 B 

00032 = 000 000 000 011 010 
00077 = 000 000 000 111 111 

000 000 000 100 1012 = 000453 

Answer : Index register 1 will contain 45® 

(li) x(2^I mm ,2 

Where index register 2 contains 74321B 
74321 = 111 100 011 OlO 001 
77777 = 111 111 111 111 111 

000 011 100 101 1102 = 034568 


Answer * Index register 2 contains 3456 b 








a = addressing mode designator 
b = index register designator 
m = storage address 


Description I Selectively set 1-bits in A for all 1-bits in M 

This instruction leaves ”1** bits which were 
already present in the register*i.e. it does 
not clear A before execution. 

This instruction is performing an "inclusive OR” 
operation. 

Biamples t (i) SSA 100B where (lOO) » ^0^0^0^0 

(A) - 52525252 

What will (a) be after executlon> 

(A) = 72727272 

(ii) SMA,S 0 where (ABIT) = 76543210 

SSA ABIT 

Answer» (a) > 76543210 

(iii) EHA,S 2l0l0B where (M«)D) = 11111111 

SSA M^D 

Answer i (a) - 11131111 

(iv) ENA,S 44444B where (M0D) = 11111111 

SSA M0d 


Answer* (a) « 77755555 







CHARACTER MODE OF OPERATION 


8.1 INTRODUCTION 


8.2 CHARACTER ADDRESS INSTRUCTIONS 

8.2.1 Load A Character 

8.2.2 Load Q Character 

8.2.3 Store A Character 

8.2.4 Store Q Character 

8.2.5 Store Character Address 

8.2.6 Enter Character Address into A 


Chapter 


8.3 


INDEX MODIFICATION OF CHARACTER ADDRESSING INSTRUCTIONS 




8.1 INTRODUCTION 


Data may be stored in tvo ways in the 3200. It may be stored 
in full words - that is, the information stored in 24 bits. Or, it may 
be stored in character form . 

Each word in the 3200 may be broken up into four 6-bit 
characters, which are called characters 0, 1, 2 and 3 in the particular 
word, as showns 


23 18 17 12.11_0605_^ 


0 

1 

2 

3 


Information may be stored in characbars, instead of in words, 
for convenience and economy. For instance, if we wish to store fifty digits, 
it could be more convenient to store them as 5^ characters, to take up only 
l2i words of storage, rather than put each digit into a separate computer 
word. 


The computer is able to address any character in any word in 
storage. To find the character address of any particular character, the 
word address of the word containing the character is multiplied by 4? 
and the character position is added on. 

The process is simpler if the arithmetic is done in binary. 

To multiply by 4 in binary you suffix two sepos to the righthand end of the 
number. The character positions are (in binary) 00, 01, 10 and 11. 
Therefore to find the character addressi 

(i) Change the word address to binary 

(ii) Add the character position in binary as 2 extra 
low order bits 

(iii) Convert back to octal 

Example t Character 2 in word 104 

(i) Binary » 001 000 100-^ Character position 

- 

(ii) Add on character position=00l 000 100 10 
After regrouping bits * =00 100 010 010 
(ill) Convert to octal = 422B = Character Address 

Exercise s Find the character addresses of the following characters. 

Word Address Character Position Character Addrese 


100 3 

405 1 

t02l 0 

477 2 

4001 1 

2664 0 

17777 3 


Similarly, if we know a character address, we can determine 
the word address in which the oharaoter is contained, and its position 
in the word* 




8,1 (cont^I) 


The steps arei 

(i) Convert to binary 

(ii) Remove the last two binary digits. (These are the 
character position) 

(iii) Convert the remainder to octal. 


RYflTTipl ft 8 Character address 422 

(i) Binary = 100 010 010 

(ii) Divide by 4 = 100 OlO O 2 Remainder = IO 2 = 23 — Character 

(iii) Regrouped = 1 000 IOO 2 Octal = 104 = word 

Address 

Answer - Character 2 in word IO 4 


Exercise: 


(i) Find the word address and character position of the 
following character addresses: 


(a) 

201 

(e) 2110 

(b) 

3 

(f) 4231 

(c) 

417 

(g) 16524 

(d) 

555 

(h) 66666 


(ii) What is the smallest character address? 


(iii) What is the largest character address in an 8 K 
computer? 

(iv) What is the largest character address in an 32K 
comput er? 


Character Address Instruction Format 


The instruction format enables the address of a particular 
character in a word to be specified. 


23 18 17 16 15 14 


00 


(6 bits) 


(1 bit) 


(17 bits) 


'V 

f 





storage address 

16 15 14 13 02 01 00 



Storage Field Co-ordinate Address Character 
Module within field 0-3 


0-3 0-1 0000-77778 


Character-Addressed Instruction Format 

(i) Function Code (f) 

6 bit code of action to be carried out. 

(ii) Operation Designator (d) - 1 bit 

If d * 1 , modify address "m” by contents of a 
set index for the particular instruction. 

If d * 0, no modifications. 

(iii) Storage Address (l7 bits) 

The address of-the character required is specified. 

This may be broken up into the module, field and 
co-ordinate address, as for word eiddressing, plus 
two'bits to indicate the character position in the word. 



8,1 (cont.2) 


Ezercisei 


Assume that the following block of memory is in Field 1 of an 
8K computer. What will be the character addresses o f the characters 
marked x? The co-ordinate address of the first word in the block is 
31248 - 






8.2 CHARACTER ADDRESS INSTRUCTIONS 


8.2.1 Load A Character 


immm 


iso iEss nm 

^ACH mj " 


23 18 17 16 


00 


22 


m = 17 bit character address 

b = index designator - but can be only 

one bit, so has special use. See section 
on indexing(section 8.3). 

Description s Clears (a) and loads into bits 00-05 of A, the ^ 

contents of the character specified by M. (m + (B )) 


Examples 8 


(i) LACH 403B 


(A) « 40012431 
(lOo) = 01020304 
( 400 ) » O 5 O 6 O 7 OI 
( 403 ) = 02030405 


What will be the contents of the A Register? 
(a) = 00000004 since 403B (char.) 

= lOOB (word)^ pos. 


(ii) LACH 5B 

Wiat will te the contents 
of the A Register after 
execution? 


(A) = 00000034 


0 

1 

2 

3 

4 

5 


01234 

■ 12345670 
234=56701 
■34567012 

45670123 

56701234 


(iii) 


HRTABEE 


iagh HRTABLE+3 hrtable 

01 

23 

451 

67 

• 

12 

34^ 

56 

70 

• 

11 1-22 

1 3^1 

44 

0 

55 1 66 

nij 

00 


BSS. 4 


What will he the (A) after execution? 

(A) . 00000067 

(iv) In (iii) what would he the (a) if the instruction was 
LACH HRTABLE+13B 

(a) - 00000044 


8.2.2 Load Q Character 


1 ieCliT!3ll 

FIEill 


LOCH 










23 18 

17 

16 

00 


23 

n 

m 


Description: Same as LAGh except substitute Q Register for A Register, 
and it uses a different index register (which also is 
different from SQCH) 











8.2.3 Store A Character 


_^ ei»EI}Mj§N,HSSmEg$ <i88»SS Fitlg_ 

^ / 7 "~ '"'I - bach .. ^ .I.t 


23 18 17 16 


00 


42 b 


m 


m = 17 bit character address 

b = index designator - but can be only 

one bit, so has special use. See section 8.3 
on indexing. 

Description: Store the contents of bits 0-5 of the A Register in the 
specified character address. 

R.B* The contents of A and the remaining 3 characters 
in the storage iiord, are unchanged. 


Examples : 

(i) SACH 43B if (A) 20012345 


Much character position of which word is affected, 
and what will be the contents of the’character position? 

Answer : (l) Word 10 

( 2 ) Position 3 

( 3 ) 45B 

(ii) SACH L0C+3 (a) - 11560133 


1,16c BSS 5 

What changes will be made to 
the 5 words shown? 

(L0C) » 00112233 


L0C 


00 11 22 33 
44 55 66 77 
01 02 03 04 
05 06 07 00 
12 34 56 07 


i.e. no changeI 


8.2.4 Store Q Character 


LoTsIiOK SPEyiiONJIMiERS yOilESS Fioe _ __ 

^ i ^ .. ^ ^ ^ 


23 18 17 16 


43 


00 


Description ; Same as SACH except substitute Q register for A register, 
and it uses a different Index register (which also is 
different then that used by LQCH) 







8.2.5 Store Character Address 


_ sPERAmiijjMS ficii 

Z Z'- I: ^ . 


23 18 17 16 15 14 00 

1 46 

E 


m 


a = addressing mode designator 
b = index register designator 
m = storage address 

Descyiption > Stores tbe lower 17 bits of (A) in the lower 17 hits of word 
M. The upper hits of M and the whole of A are unchanged* 

The instruction is used for character address modification. 
Compare with SWA instruction. 

Examples : 

(i) SCHA 50B (A) =10747021 

(50) = 23064513 

What will he the contents of 50 after execution? 

( 50 ) = 23347021 

(ii) Loeation Instruction Assembled as 

100 SCHA *+1 46000101 

101 LACK ♦* 22377777 

If (a) = 11117643 when 100 is executed, what will be the 
contents of 101 after execution? 

Answers (lOl) = 22117643 





8*2.6 Enter Character Address into A 


I lOC/i[f 0 N 


ofERAiiSii.MssinEKS mm% hup 

SCW^S a _ 


23 18 17 16 


00 



d = 0, if no sign extension 

nisMiGN nOPEMTiOX.NWflEffS HOSPESS flEt8 _ 


23 18 17 16 00 


1 ” 

on- 

y 

d = 1, 

if sign extension 


" lOCirC!^ "^5 r ^Vi tk irj^CS' HEIB 

r ECHA^s ^ 


23 18 17 16 00 

□□ 

0 

Y 


Description: Enters the 17 bit quantity ”y" into the A register* 

When d = 1, the sign of the quantity (2^^ bit) is 
extended in A. When d 0, the upper 7 bits of the 
A register are set to zero. ”y" is usually a character 
address. If "y" is a synubolic word address, the actual 
machine address is multiplied by 4 before it is assembled 
in the instruction. 

Examples: (i) It 0UTBUF is character position 3 in the word at 

word address 100, what would be the contents of A 
after: 


ECHA 0UTBUF 
Answer: (A) = 00000403 

(ii) What would be the contents of A after execution of: 
ECHA 117640B 
Answer: (A) = 00117640 

(iii) If TABLE starts at word address 40000, what would be 
the contents of A after: 

ECHA TABLE 

Answer: (A) = 00200000 

ECHA,S TABLE 

Answer: (A) = 77600000 








8.3 INDEX MODIFICATION OF CHARACTER ADDRESSING INSTRUCTIONS 


Character address instructions have limited indexing ability. 


f 


b 


m (17 bits) 


b is only one bit, therefore it can only indicate whether 
a specific index is used or not used. 

i.e. If the "b** bit is 2 set, the address is modified by 
either (b') or (B ) depending on the particular 
instruction. 

LACH m,l 

LQCH m,2 

SAGE m,.2 

SQCH m,l 

Also, if the ’m* address is at one or the other end of a 
table, the table is limited in length to 16383]^q characters. 

i.e. If TABLE equals word address pOOOOB (character address = 
lOOOOOB) and the instruction is: 



LACH TABLE,1 



(1) 

and 

(Bi) = 40000B 


77740000 
00100000 


the 

character address 

referenced 

^ 040001 

(ii) 

or 

(b1) = 77776B 


77777776 

OOlOOOOO 


the 

character address 

referenced 

= 077777 

(ill) 

or 

(b1) = OOOOOB 


00000000 

00100000 


the 

character address 

referenced 

= 100000 

(iv) 

or 

(fil) = OOOOIB 


00000001 

00100000 


the 

character address 

referenced 

= 100001 

(v) 

or 

(bI) = 37777B 


00037777 

00100000 


the 

character address 

referenced 

= 137777 


Note: If the index register contains 40000 thru 77776 
the reference is backward in memory, whereas if 
the index register contains 00001 thru 37777 the 
reference is forward in memory. This means that 
when writing programs in COMPASS, FORTRAN, ALGOL 
or COBOL one should be careful not to exceed 
16383]^Q when defining character arrays. 




8,3 (cont«) 


Examples : In the following examples assijme the contents of the 
index registers to he: 

(B^) - 5 
(B^) = 2 
(B^) = -3 

(i) LM LABEL+1,3 

STA LABEL,2 
LDQ LABEL,2 

What will he the contents LABEL 
of Q after execution of the 
program segment above? 

(ft) = 22222222 


(ii) LACH LABEL,1 

¥hat will be the contents of A? 

Answer (a) = 00 00 00 55 

Exercises ; 

1, A block of memory (maximum length = 100 words) contains 
numbers stored one to a word. The end of the list is 
indicated by a word containing BCD blanks. Write a routine 
which will add the numbers in the list. (Use indexing.) 

2- Transfer 57 words located 4 memory locations apart, into 57 
consecutive memory locations. 

3. Transfer 17 words located 5 memory locations apart, into 
17 words located 10 memory locations apart. 



4. Calculate the sum of the octal numbers 0-14. 




INTER-REGISTER TRANSFERS 


9.1 TRANSFERS BETWEEN THE A REGISTER AND INDEX REGISTERS 

9.1.1 Index Register to A Register 

9.1.2 A Register to Index Register 

9.2 TRANSFERS BETWEEN THE A REGISTER AND THE REGISTER FILE 

9.2.1 Register File to A Register 

9.2.2 A Register to Register File 

Chapter 

9.3 TRANSFERS BETWEEN THE Q REGISTER AND THE REGISTER FILE 

9.3.1 Register File to Q Register 

9.3.2 Q Register to Register File 

9.4 TRANSFERS BETWEEN INDEX REGISTERS AND THE REGISTER FILE 

9.4.1 Register File to Index Register 

9.4.2 Index Register to Register File 

9.5 INTER-REGISTER ADDITION 

9.5.1 Add Contents of Q to Contents of A 

9.5.2 Add Contents of Index Register to Contents of A 

9.5.3 Add Contents of A to Contents of Index Register 




9,1 TRANSFER BETWEEN THE A REGISTER AND INDEX REGISTERS 


9.1.1 Index Register to A Register 


iOCiTIOJi MUBifURS IgSRf SS FI BS 


23 18 17 16 15 14 12 11 00 

I-1—1-1- 


1 53 

0 


a 



b = index designator (1-3) 
bits 0-11 are not used 


Description ! Transfer the I5^it contents of index register B 
to A. (a Register is cleared before the transfer 
is done.) 


Example ! 

If b 2 contains 54321 and A contains [7003 2146 [ 

TIA 2 

(a) clear A » 0000 OCXX) 

(b) transfer 15 bits in to lower 15 bit positions of A 

(A) « 0005 4321 


9.1*2 A Register to Index Register 


: mnm OPtSailSS.MSDifUSS 

ASSRESS Fins 



Tfll 


b 







........... 



23 18 17 

16 15 14 12 

11 

00 

1 1 

□ 



H 



b = index designator (1-3) 


ctx€ 14V/W 


0 

Description! Cl@ar index register B « and transfer the lower 15 
# bits of (a) to it. 

Example! If 

B^ contains 2lB and A ccaatains |7643 lOOOj 

TAI 

3 

(a) 

Clear Index 3 

(b) 

Load it with lower 15 bits of A 


(B^) = 31000 







9>2 TRAlSrSFSRS BETWEEN THE A BEGISTER AND TEE BEGISTER FILE 


(The Register File is a special high speed memory of I00g locations 

numbered from OOg - 778*) 

9*2*1 Register File to A Register 


1_ Z . ■ ”"~Z^'..; -.Z - 


23 18 17 16 15 14 12 11 06 05 00 



m = Register File Address (00-77) 

Bits 6-11 and 15 - 16 are not used. 

Rescription > Transfer the contents to Register file m to A 
A is cleared prior to the transfer. 

Example s If A « 0000 0006, and Register file 20 « 0000 00l4, 

what will be in A after execution of the following 
instruction? 


TMA 20B 


Answer * 

(a) 

A is cleared 


(b) 

Contents of Reg. Pile 20 put in A 



(A) = 00000014 


9*2.2 A Register to Register File 


23 18 17 16 15 14 12 11 06 05 00 


1- 1 

n 


1 — 1 


n — 

I 

LlJ 


LlJ 


I i'" 1 


m = Register File Address (00-77) 

Bits 6-11 and 15 - 16 are not used. 

Rescription I Register file m is cleared, and the contents of 
the A register are transferred to m. 

Example s If (a) « 0000 1000 

Register file 30 = 0000 0777 
TAM 30B 

Answer; (a) Register file 30 is cleared 

(b) Contents of A placed in Reg. file 30 
(Reg File 30) = 00001000 












TRANSFER BETWEEBT THE Q BESGISTER AND THE REGISTER FILE 


9*3*1 Register File to Q Register 

k^sREs Tici s 

TMQ in 


23 18 17 16 15 14 12 11 06 05 00 



Description: As for TMA except uses Q register 


9*3*2 Q Register to Hegister File 


lOCatidn r’t=rs'V 

mmm fieip 

TQM 

m 



23 18 17 16 15 14 ^2 11 06 05 00 


1 

“ 


— 



|53 

u 


LiJ 


LjlJ 


' Desc:ription; As for TAM except uses Q register 










9>4 TBAUSFER BETWEm INDEX BEGISTERS AISD THE HEglSTER FILE 


9*4*1 Register File to Index Register 


mmm 

^upEBj^iiofUSDiFifis mmm fieis 


TMX 


myb 



. • J . S ■V -t ' F« ^ 






23 18 17 

16 15 14 12 

11 06 05 00 


1 

0 

b 1 3 


1 1 m 1 


b = index register designator 
m = register file address (00-778) 
bits 06-11 are not used 

Description > Transfer the lower 15 bits of Register m to Index 
B . Index is cleared before transfer. 

Example 8 Index register 3 contains 00010, and 

Register file 25 contains 0000 2000. 

What will be in after execution of the following 
statement? 

TMI 25B,3 

(a) Index 3 is cleared 

(b) Lower 15 bits of Register file 25 are put in it. 

. 02000 


9*4.2 Index Register to Register File 




OFEIftl!iSJ 80 iriOS MDIESS REIi 

|TIM , mj 

I 




23 18 17 16 15 14 12 11 06 05 00 


1- 

— 


— 



1 53 

□ 

b 

LU 

WM. 

h 1 


b = index register designator 
m = register file address (00-778) 
bits 06-11 are not used 

Descriptlen t Clear Register file^M, and transfer to it the contents 
Of index register B°. 

Example ! (i) Index 3 contains 22B 

TIM 


^“26> 


0000 0022 


26B,3 







9,5 INTER-REGISTER ADDITION 


9,5,1 Add Contents of Q to Contents of A 


I mmm 

loFESMisNjeoiFiEiis mtm fieii 


1 AQ A . 

1 . 




23 18 17 15 14 12 11 00 


1- 

— 

— 


1 53 

_2_ 

_ 1 _ 



Desoription t Transfer the contents of A plus the contents of Q 

to A* No information is given in the address field 
in this instruction* 

Eiample s If (A.)» 0000 1000 

(Q)« 0000 4104 

What will he A after execution of the following instruction? 
AQ4 

Answer : (a) and (q) are added together and put in A 

(A) = 00005104 


9.5.2 Add Contents of Index Register to Contents of A 


gF£aj>]ioN iiii)8!FiEt$ mi m nE is 

. I 1-1!. 


23 18 17 16 15 14 12 11 00 


1- 


— 

— 


1 53 

[ 2 } 

LiJ 

LfJ 



b = index register designator (1-3) 

Description : Transfer the contents of A plus the contents of 

to A, The contents of is sign extended to perform 
the addition. 

Example : If(A)» 0000 OlOO 

( b 2) « 01404 

What will be in A after execution of the following 
instruction? 


Answer: 


AIA 2 

(a) and (Bg) are jadded and the result stored in A 


(A) - 00001504 









9.5.3 Add Contents of A to Contents of Index Register 


I "iOCMISN 


])escriptiorn 


£iamt>le t 


Exercises: 


OF EIftliON JIlDiriCgS A58 S ESS Fltl g_ 


23 18 17 16 15 14 12 11 00 


I 53 

E 





b — index designator (1-3) 

The contents of A are added to the contents of Index 
Hegister (B^) and the result stored in The sign 

of the original is extended prior to addition, and 
only the lower 15 "bits of the answer are placed in B^. 

(B^) = 00006 

(a) » 0000 0007 

What will Be the contents of index register 2 after 
execution of the following statement? 

lAI 2 

Answer : = 00015 

(i) If (B^) - 40001 

(a) = 0000 0007 

What will Be the contents of after execution 
of the following instruction? 

lAI 3 

(ii) If (B^) « 40001 

(a) = 1000 0007 

What will he the contents of B^ after execution 
of the following instruction? 

lAI 1 





STUDENT NOTES 




SEARCH AND MOVE OPERATIONS 


10.1 BLOCK CONTROL 

10.2 SEARCH OPERATIONS 

10.2.1 Search for Character Eqiiality 

10.2.2 Search for Character Inequality 

10.3 MOVE INSTRUCTION 


10.4 PAUSE INSTRUCTION 

(as used with SEARCH/MOVE Instructions) 


Chapter m 




10 >1 BLOCK COFTBOL 


Block control is an auxiliary control section within the 
3200 processor. In conjunction with the register file (see section 
1 . 2 . 5 ) and program control (see section 1.2.4)> it directs the 
following operations! 

(a) External equipment Input/Output 

(b) Search and Move operations 

(c) Beal time clock 

(d) Console typewriter Input/Output 

(e) High speed temporary storage in the register file. 

Block control is called in to initiate Search/Move 
operations. When the operation is initiated, it then hands control 
back to program control, allowing program execution to continue while 
the Search/Move operations are being carried out. 

Note that only one operation at a time can take place under 
Blodc control. An attempt to initiate, say, a Move operation while a 
Seaurch operation is in progress,will cause the Move operation request 
to be rejected, and Program control will skip to the reject address 
following the instruction* 



10.2 SEARCH OPERATIONS 


10.2*1 Search for Character Equality 


j LOCMISH 

: mm$ nm 







23 18 17 16 00 



mj 

SI 2 

23 1817 

16 00 


a 



INT = Interrupt designator 

"1" = Interrupt at completion of search 
”0” = Do not interrupt at completion of search 
C — OO 3 - 773 , BCD character to be looked for in memory 
mi = First character address to be checked 
m 2 = Last character address plus 1 to be checked 

Description: This instruction attempts to INITIATE a search through 

a block of characters in storage^ looking for a charactei 
equal to character (specified in the instruction.) 

SEARCH INITIATE POSSIBLE, i.e., the search/move section 
of block control is not busy. The instruction transfers 
the lower 18 bits of the first word of the instruction 
to register file address 30 and transfers all of the 
second word of the instruction to register file address 
20. The hardware then sets flags in the upper 6 bits 
of register file address 30,^ th-e search is started and 
the computer RNI^s from P+3. (During the search, 
register file addresses 20 and 30 are not to be disturbed, 
also the upper six bits of register file address 30 
cannot be counted on to be any particular combination 
of bits). 

SEARCH INITIATE NOT POSSIBLE, i.e., the search/move 
section of block control is busy. The instruction in 
this case executes as if it were a NOP (no operation 
instruction). It has no effect on the search/move 
section of block control, the register file or the 
interrupts if a search cannot be initiated. P+1 will 
be bypassed and RNI will be from P+2. This latter 
location is usually filled by the programmer with 

UJP *-2 

to cause the computer to loop until the previous search/ 
move operation is complete and the search can be started. 

BUFFERED SEARCH. The search progresses while other 
instructions following the search initiate instruction 
are executed. The search is made, beginning at character 
address mj^ and continues character by character through 
memory until a character equal to ”C” is found or until 
the address to be processed is equal to m 2 * The programmer 
can find out that the search is complete at the instant it 
terminates or when he is ready to check. The first is 
achieved with the interrupt designator, the second by 
using a sense instruction (both of which are to be 
covered later) . 











10 >2>1 (cont,) 


Examp1e: 


Special Note: 


Assuming that the programmer knows the search has completed, 
he can now determine if he found a character equal to 
character "C". If the lower 17 bits of register file 
address 20 and 30 are equal, no match was found. However, 
if they are unequal, the lower 17 bits of register file 
address 20 will contain the exact character address where 
the match with character "C" occurred. No ambiguity is 
possible, since register file address 30 (lower 17 bits) 
contains the last character address to be searched plus 
one; if the lower 17 bits of register file address 20 is 
equal to this address, the hardware has checked all 
addresses to be checked and is beyond the block of characters. 


Given the block of data shown 


GDIMAGE 


00 

23 

46 

44 

47 

21 

62 

62 

73 

43 

73 

67 

73 

51 

60 

60 

- 




60 

60 

60 

60 


} 


and the instruction 


(word address of this last 
word is CDIMAGE+19) 

(character address of the 
last character is CDIMAGE+79) 


SRCE 73B,GDIMAGE,GDIMAGE+80 

what address will be in the lower 17 bits of register 
file address 20 at the termination of the search? 


Answer: The address equal to GDIMAGE+8. 

If GDIMAGE is equal to word ‘address lOOOg 
(character address 4000g), then (register 
file 20, Lower 17) = 004010g 


When checking for a no-find condition at termination 
of the search, the checking is easier if the block to 
be searched is less then 32768 |q characters. If this 
is the case, one of the following two methods can be 
used: 

(m 2 address fixed and lower two bits = OO 2 ) 

TMA 20B 

SHA -2 

ASE endaddr 

UJP find 

(m 2 address variable or lower two bits OO 2 ) 

TMA 30B 

SWA *+2 

TMA 20B 

ASE ** 

UJP find 





23 18 17 16 00 

P + 1 

INT = Interrupt designator 

”1” = Interrupt at completion of search 
HQ” = Do not interrupt at completion of search 
C = BCD character to be checked against 

m-^ = First character address to be checked 

m 2 = Last character address plus 1 to be checked 

Description: This instruction attempts to INITIATE a search through 
a block of characters in storage, looking for the first 
character not equal to the charater (specified in 

the instruction.) 

SEARCH- INITIATE POSSIBLE, i.e., the search/move section 
of block control is not busy. The instruction transfers 
the lower 18 bits of the first word of the instruction 
to register file address 30 and transfers all of the 
second word to the instruction to register file address 
20. The hardware then sets flags in the upper 6 bits 
of register file address 30, the search is started and 
the computer RNI^s at P+3. (during the search, 
register file addresses 20 and 30 are not to be disturbed, 
also the upper six bits of register file address 30 
cannot be counted on to be any particular 'combination of 
bits.) 

SEARCH INITIATE NOT POSSIBLE, i.e., the search/move 
section of block control is busy. The instruction in 
this case executes as if it were a NOP (no operation 
instruction). It has no effect on the search/move 
section of block control, the register file or the 
interrupts if a search cannot be initiated. P+1 will 
be skipped and RNI will be from P+2. This latter 
location is usually filled by the programmer with 

UJP 

to cause the computer to loop until the previous 
search/move operation is complete and the search can 
be started. 

BUFFERED SEARCH. The search progresses while other 
instructions following the search initiate instruction 
are executed. The search is made, beginning at character 
address m-j^ and continues character by character through 
memory until the first character not equal to "C” is 
found or until the address to be processed is equal to m 2 . 
The programmer can find out that the search is complete 
at the instant it terminates or when he is ready to check. 
The first is achieved with the interrupt designator, the 
second by using a sense instruction (both of which are to 
be covered later.) 






10 . 2«2 (cont>) 


Assuming that the programmer knows the search has completed, 
he can now determine if there were any characters other 
then the character and where the first of those occurred. 
If the lower 17 bits of register file address 20 and 30 are 
equal, no characters others then ” 0 ^' exist in the block. 
However, if they are unequal, the lower 17 bits of register 
file address 20 will contain the exact character address 
where the first character other then ”0” occurred. No 
ambiguity is possible, since register file address 30 
(lower 17 bits) contains the last character address to be 
searched plus one; if the lower 17 bits of register file 
address 20 is equal to this address, the hardware has 
checked all addresses to be checked and is beyond the 
block of characters. 


Example: 


Given the block of data shown 


CDIMAGE 


60 

60 

60 

60 

60 

60 

60 

60 

60 

62 

51 

23 

45 

60 

60 

60 





60 

60 

60 

60 


and the instruction 


(word address of this last 
word is CDIMAGE+19) 

(character address of this 
last character is CDIMAGE+79) 


SRCN 60B,CDIMAGE,CDIMAGE+80 

what address will be in the lower 17 bits of register 
file address 20 at the termination of the search? 

Answer: The address equal to CDIMAGEH-9. 

If CDIMAGE is equal to word address IOOOO 3 
(character address AOOOOg), then the contents 
of register file address 20 ^^^^^^. ^ = O 40 OII 3 


Special Note: See the Special Note for the SRCE instruction (Section 

10 . 2 . 1 ) for techniques in determining type of termination. 




IQ, 3 MOVE INSTRUCTXON 


1 mmm 

mm$ fiEig 


1 . . 

it 

■ . •• . .. 



23 18 17 16 00 


1 

INT 

m 2 

23 17 

16 00 

y 

m.i 


INT = Interrupt designator 

”1" = Interrupt at the completion of the Move 
''0” = Do not interrupt at the completion of the Move 
y = Number of characters to be Moved 

If y = 001~177g, 001-127 ]^q characters are Moved 
If y = 000 , characters are Moved 

m-j^ = First character address of data source 
m 2 = First character address of data destination 

Description: This instruction attempts to INITIATE the copying of a 
block of "y” characters in one area in storage into a 
second area of storage, "y” is specified in the instruction, 

MOVE INITIATE POSSIBLE, i.e., the search/move section 
of block control is not busy. The instruction transfers 
the lower 18 bits of the first word of the instruction 
to register file address 31 and transfers all of the 
second word of the instruction to register file address 
21. The hardware then sets flags in the upper 6 bits 
of register file address 31, the move is started and 
the computer RNI*s at P+3, (During the move, register 
file addresses 21 and 31 are not to be disturbed, also 
the upper six bit^ of register file address 31 cannot 
be counted on to be any particular combination of bits.) 

MOVE INITIATE NOT POSSIBLE, i.e., the search/move 
section of block control is busy. The instruction in 
this case executes as if it were a NOP (no operation 
instruction). It has no effect on the search/move 
section of block control, the register file or the 
interrupts if a move cannot be initiated. P+1 will be 
skipped and RNI will be from P+2. This latter location 
is usually filled by the programmer with 

UJP *-2 

to cause the computer to loop until the previous 
search/move operation is complete and the move can 
be started, 

BUFFERED MOVE. The move is made beginning at character 
address m| (source) and m 2 (destination) and continues 
through memory until "y” characters have been moved. If 
both and m 2 are character addresses that represent 
character position 0 and the number of characters to be 
moved is a multiple of four, the data is copied a word 
at a time. If all three conditions are not met, the 
copying proceeds a character at a time. The word move 
only takes one-fourth .the time of a character move for 
the same number of characters, so should be used when 
possible. As soon as the "y" characters have been moved, 
the move operation terminates and the search/move section 
of block control reverts to the not busy status. 








Erample s 


Given the block of data shown, 


MOVE 6,410B,424B 

UJP *-2 


What is in storage at end 
of MOVE Operation? 

Answeri 


101 

21 

14 

16 

32 

102 

60 

60 

60 

60 

103 

21 

31 

41 

21 

104 

60 

60 

60 

60 

105 

17 

01 

17 

01 

106 

25 

25 

25 

25 


101 

21 

14 

16 

32 

102 

60 

60 

60 

60 

103 

21 

31 

41 

21 

104 

60 

60 

60 

60 

105 

60 

60 

60 

60 

106 

21 

31 

25 

25 


Special Note: If is set by the programmer, he should remember 
that it is 7 bits. A SACK (or SQCH) into the upper 
6 bits of "y" represents a character move of twice 
the number represented by (A^o^er 6).or (Qiower b) 

(or is twice+l depending on the least significant 
bit of the original ”y'0« 

Techniques for changing ”y”; 

Word Move, ”y” originally set to 0» number of words 
to be moved in A register (right justified)* 

SHA 1 

SACK Move ins t-h4 

Word Move, "y” current contents unknown. Number of 
words to be moved in A register (right justified). 


SHA 

2 

LDQ 

Moveinst+1 

SHQ 

7 

SHAQ 

17 

STA 

Moveinst+1 


Character Move, Number of characters to be moved 
in A register(right justified). 


LDQ 

Moveinst+1 

SHQ 

7 

SHAQ 

17 

STA 

Moveinst+1 


Als» if the source and destination blocks overlap, 
be sure that the source address is the higher address 
in memory or some of the source data will be destroyed 





10,4 PAUSE INSTRUCTION (as used with SEARCH/MOVE Instructions) 


mmm 

^ ;(iPESil1!08J8D!Flf8S MUm FlFll 

^ .L.; J . i 

^AUS . 40003 . 


••• i C J iC i Ji: • J ? J 3 ? ♦U?! f t 




23 18 

17 15 

14 12 

11 00 


Cl] 


4000 


Description: Once the main progran has begun a Search/Move operation, 
it hands’ ovei: control of that part of the pfogf^ to the 
Search/Move section of Block Control• The main program 
is then resumed at P + 3. If it is necessary to find the 
result of the Search/Move operation before the main pro¬ 
gram goes on with further calculations, etc, the PAUS 
instruction is used* 


This instruction senses the status of the Search/Move 
section of Block Control. If it is busy, the machine 
main control pauses for 40 msec., or until the Search/Move 
section becomes not busy. If it- stays busy for 40 msec., 
the computer RNI»s at P + 1. If it was originally not 
busy or becomes not busy during the 40 msec, interval, the 
computer RNI^s at P + 2, 


At the completion of a Search/Move operation. Register File 
Location 20 contains the final current word address for a 
Search operation and Register File Location 21 contains it 
for a Move. The contents of that word is generally not 
useful to the programmer in the case of a Move, but is 
quite important in the case of a Search. Here is how the 
word at Register File Location 20 is divided: 


23 18 17 16 00 


Current address at termination of 
Search operation. If it is equal 
to the last character address plus 
one, it means that the condition 
for which the search was performed 
was not found. Otherwise it is 
equal to the character address of 
^ the ’find’. 

{ 0 if SRCE instruction 
1 if SRCN instruction 

r Character used for equal or 
\ not equal test during search. 


Examples: i) The instructions to be The block of characters to be 


performed 

are: 

searched 

is: 




SRCN 

UJP 

21B,400B,414B 

*_2 

100 

21 

21 

21 

21 

PAUS 

UJP 

4000B 

*-l 

101 

21 

21 

21 

21 

TMA 

HLT 

20B 

102 

21 

21 

20 

21 


What will be the contents of the A register when the 
computer halts on the HLT instruction? 


Answer: (A) 


21400412 = 


23 18 17 16 

21 fT" 


000414 


00 







10«4 (cont.l) 


ii) Given the block of data shown, where the word address 
of RHT = 17714g, what will be the contents of A after 
execution of: 


SRCE 

UJP 

PAUS 

UJP 

TMA 


21B,RHT,RHT+33 

*-2 

4000B 

*-l 

20B 


RHT 


00 

00 

00 

25 

00 

00 

00 

31 

00 

00 

00 

46 

00 

00 

00 

27 

03 

21 

60 

60 

00 

00 

00 

41 

00 

00 

00 

31 

77 

77 

77 

77 


Answer: (A) = 21077501 


iii) If the word address of ST^RE is 17717g, and,the character 
address of CEASE is 77514g, given the block of data shown, 
what will be the contents of A after execution of: 


SRCN 

6OB,ST0RE,CEASE 

UJP 

*-2 

PAUS 

4000B 

UJP 


TMA 

20B 


ST0RE 


60 

60 

60 

60 

60 

60 

60 

60 

60 

60 

21 

60 

60 

60 

60 

60 


Answer: (A) = 60477506 


ST0RE = word addr 17717 q 
= char position 0^ 

= char address 

regrouped 

iv) If the word address of INBUFF is 17000g and the word address 
of 0UTBUFF is 17400g and the number of characters to be moved 
is 8, what will be the contents of the A register after the 
move is complete? 


= 001 111 111 001 lll^ 

= OO2 

001 111 111 001 111 OO 2 
= 00 111 111 100 111 IOO 2 = 


M0VE 

8,INBUFF,0UTBUFF 

UJP 

*-2 

PAUS 

4000B 

UJP 

*-l 

TMA 

21B 


Answer: (A) = 00074010 

At the start of the Move, the contents of 
Register file location 21 was: 


77474, 


04074000 





10,4 (cont.2) 


Exercises: i) INBUFF currently contains a card image. Somewhere in the 
card image is a comma. Write the code that will search 
for the comma and then copy all the information up to the 
comma into an output area called 0UTBUFF. 0UTBUFF is large 
enough to contain all of INBUFF. 

ii) ZUP currently contains a twelve digit BCD number with leading 
zeros. Using the Search Instruction, find the most significant 
digit and replace all leading zeros with 60B codes. 

iii) Using the Search instiniction, check the character in the A 
register against a table of characters, seven characters 
long. The table is as follows: 


FTN0P 


13 20 34 40 
54 61 74 00 


If the character is equal to any of these characters, 
transfer control to location WAS0P, otherwise continue 
to the next section of code. 




STUDENT NOTES 




STORAGE TESTS 


11.1 MASKED EQUALITY SEARCH 


11.2 MASKED THRESHOLD SEARCH 


11.3 STORAGE SHIFT 


11.4 COMPARE (WITHIN LIMITS TEST) 


Chapter 




11 a MASKED EQUALITY SEARCH 


M£Q a**j ‘ 


23 18 17 15 14 


00 


06 


i = 0 thru 7 == interval designator 
m = storage address (of first word) 


Descriptions (a) is compared with the logical product of (O.) and (m) 
where M - m+(Bl) 


HOTE s This instruction uses exclusively . 



N.B. i a 1 means interval 1 

i « 7 ti It 7 

i - 0 »• " 8 


Examples ; 


( 1 ) 


Given the following conditions: 


(B^) = 5 

(Q) = 77777777g 

(A) = 60606060g 


100 

101 

102 

103 

104 


00674320 

21314367 

60606060 

67676767 

47532167 


and the following program section: 


ENI 

5,1 

ENQ,S 

-0 

MEQ 

100B,1 

UJP 

N0FIND 

INI 

100B,1 

STI 

FlND.l 


do the following: 







11,1 (cont,) 


Answer ; 

(a) ])eGrement by 1 and calculate M. 

H = m + (B^) 

=100+4 

= 104 

(b) Compare (a) with logical product of (q) and (104) 

(q) = 77777777 
( 104)= 47532167 
47532167 


which is not equal to A. 

(c) Decrement by 1 and repeat 


(ft) = 77777777 
(103)- 67676767 
67676767 

which is not equal to A. 

(d) Decrement B“ by 1 and repeat 


(ft) - 77777777 
(102)- 60606060 
60606060 

which is equal to A. 

m P + 2. 

(e) Contents of PUID = 102. 



11.2 MASKED THRESHOLD SEARCH 


L0r/iT!8‘f 


OFC8ilS(INJO(l[_FtfRS 

MTH 1 


mmm ficiii 


23 18 17 15 14 00 


07 


m 


i = 0 thru 7 = interval designator 
m = storage address (of first word) 


Description : This instruction is similar to the MEQ; the only 
differences being that RNI from P+2 occurs when 
(a) 5^ (Q) X (m) , and that index is used 
exclus ively . 



Example: Given the following conditions and program section 


(b2) = 6 

100 

00000067 

(Q) = 77777777g 

101 

00000104 

102 

00000040 

(A) = 00000040g 

103 

00000111 


104 

00000700 


105 

00000077 


106 

00000052 

MTH 

100B,2 


UJP 

N0FIND 


INI 

100B,2 


STI 

FIND,2 



a) What will be the contents of FIND after this 
program section is executed? 

b) What locations will have been checked? 

Answers: a) (FIND) = 00000102g 

b) Locations checked = 104B 
and 102B 






11.3 STORAGE SHIFT 


i mum 

3PEiii:!0i«si:aKrsis mmm nan 



SSH 





i _ ^ ^ ^ ^ ^ ^ ^ i ; ^ .. ‘ 


23 18 

17 15 

14 


00 


1 

0 

m 


Description ; Sense bit 23 of (m). 

Shift (m) one place left, end around, and replace 
it in storage. If bit 23 of (m) was a 1-bit, RNI 
from P+2, if 0 OTI from P+ 1 . 



Examples ; 

(i) SSH 100B 

UJP ST0P 

UJP (lOO) = 52525252 

ST0P HLT 

First time throu^ ( 1 OO) = 101 010 101 010 101 010 101 010 
which is negative, so RNI at P + 2. 

Second time through (lOO) = OlO 101 010 .101 010 101 010 101 
which is positive, so RNI at P + 1 and jump to Halt* 






11 >4 COMPARE (WITHIN LIMITS TEST) 


i mmm 

jpiFiERS mtmi riEiB 



.: CPU,! , _ m,b ... 


[ 




23 18 

17 

16 15 

14 00 

l_52j 

Q 

Q 

m 


a = addressing mode designator 
b = index designator 
m = storage address 


Description: The Compare, within limits test, instruction, is a two 
phase instruction. The first phase compares the 
contents of the M address against the contents of the 
A register. If the contents of memory is larger, the 
computer RNI^s at P + 1. If. the contents of memory is 
less than or equal to the contents of the A register, 
the instruction proceeds to the second phase of the 
test. This phase compares the contents of the Q register 
against the contents of the M address. If the contents 
of Q is larger, the computer RNI’s at P + 2. If the 
contents is less than or equal to control passes to 
P + 3. 


Summarized: If 


(M) > (A), RNI at P + 1 
otherwise, next test 


If 


(Q) > (M), RNI at P + 2 
otherwise, RNI at P + 3 


Expanded these relations become: 


(Q) 

(Q) 


(A) 

(A) 


(M) 

> (A) 

(M) 

> (A) 

(M) > (Q) 

> (A) 

(M) > 

(A) = 

(M) > 

(A) > 

(Q) 

> (M) 

(Q) 

> (M) 

(Q) > (A) 

> (M) 

(Q) > 

(M) = 

(A) = (M) 

= (Q) 

(a) = (M) 

> (Q) 

(A) > (M) 

= (Q) 

(A) > (M) 

> (Q) 



RNI at P + 1 


RNI at P + 2 


RNI at P + 3 


All possible relationships between A, Q and M 
are shown. 


Normally, the value in the A register is greater than 
or equal to the value in the Q register. If this is the 
case, the following indicates the action of the instruction. 


(M) > (A) - RNI at P + 1 

(A) > (M) > (Q) - RNI at P + 3 

(Q) > ,(M) - RNI at P + 2 







11»4 (cont,l) 


While the instruction is almost always used in situations 
where the contents of A is greater than or equal to the 
contents of Q, occasionally it is not. Following is a 
discussion of the instruction in these alternate uses. 

Stated in shorthand fom, where the contents of the A 
register is less than the contents of the Q register, 
the instruction behaves as follows: 

(M) > (A) RNI at P + 1 

otherwise, RNI at P + 2 

Note: RNI at P + 3 is not possible because if 
(M) $ (A) then (M) < (Q) as (A) < (Q). 

Reversing positions of A and M, the branching 
conditions become: 

(A) < (M) RNI at P + 1 

(A) ^ (M) RNI at P + 2 

This then is nothing more then an ASG with a full 24 bit 
operand. However, one value that A can take on is 
troublesome and that is 37777777. When this is the 
contents of A, (A) < (Q) is not possible as 37777777 is 
the largest possible positive number. 

While this form of the instruction looks useful, it 
rarely is used as it can usually be replaced by a load Q 
and an AQ test. The coding that way ends up shorter and 
executes faster. 

Another possible use of the instruction exists where the 
contents of the A register is set to 37777777g or the 

contents of the Q register is set to 40000000g. 

In the case where (Q) is set to 4000odo0g, the instruction 
acts as follows: 

(M) > (A) RNI at P -f 1 

otherwise, RNI at P + 3 

This looks very much like the previous form 
except for the RNI*s. It is essentially an 
A skip greater than or equal to where the 
skip is two words rather than one. Since P + 2 
is unused, M can be set equal to it with (M) 
equal to the test value. 



LDQ 

=040000000 


CPR 

*+2 


UJP 

less-than-routine 


0CT 

test-value 


greater-than-or-equal-condition-next-instr. 

In the case where (A) is set to 37777777g, the instruction 
acts as follows: 

(Q) > (M) RNI at P + 2 

otherwise, RNI at P + 3 

This is essentially a Q test. Also since P -h 1 
is unused, M can be set equal to it with (M) 
equal to the test value. 

e.g. LDA =037777777 

CPR *+l 

0CT test-value 

UJP greater-than- routine 

less-than-or-equal-condition-next-instr. 



11,4 (cent.2) 


Note in both of the tvo previous foms that A or Q must 
be set prior to the execution of the instruction and both 
A and Q are in use. Here as with the condition earlier, 
a load A or a load Q coupled with an AQ test usually 
produces shorter code which executes faster. 

Still another possible.use of the instruction exists 
where the contents of the A register is set equal to the 
contents of M or the contents of the Q register is set 
equal to the contents of M. 

Where (Q) = (M), the instruction executes as indicated: 

(M) > (A) RNI at P + 1 

otherwise, RNI at P + 3 

This is similar to the case where the contents 
of Q is set to 40000000g. As in that case, 

P + 2 is unused. Therefore, M can be set 
equal to P + 2 with (M) set equal to (Q) 
during execution^ 



STQ 

*+3 


CPR 

*+2 


UJP 

less-than-routine 


BSS 

1 


greater-than-or-equal-to-next-instr. 

Where (A) = (M), the instruction executes as follows: 

(Q) > (M) RNI at P + 2 

otherwise, RNI at P + 3 

This is similar to the case where the contents 
of A is set to 37777777o. As in that case, 

P + 1 is unused. Therefore, M can be set 
equal to P + 1 with (M) set equal to (A) 
during execution. 


e.g. 


STA *+2 
CPR *+l 
BSS 1 

UJP greater-than-routine 
less-than-or-equal-to-next-instr. 


Note: In the case where (Q) is set equal to (M), 
the same thing could have been achieved by: 


AQJ,GE *+2 

Likewise, in the case where (A) is set equal 
to (M), the following instruction serves the 
same purpose: 

AQJ,GE *+2 


Since *+l will almost .certainly be a UJP, 
these can be replaced by a: 


AQJ,LT address-in-UJP-instruction 

Obviously, the forms of the instruction where (Q) = (M) 
or (A) = (M) are not useful. 



11,4 (cont,3) 


Example ; 


Exercise: 


About the only useful form of the instruction other then 
the one where it is known that (A) ^ (Q), is where the 
(Q) is totally unknown and of no concern. When this is 
the case, the instruction is applied as follows: 

(M) > (A) RNI at P -f 1 

otherwise, RNI at P + 2 or P + 3 

When used in this manner, it is nothing more then an 
ASG where the test value is a 24 bit operand and (P+2) 
must be a NOP, 

No matter how the CPR instruction is applied, the following 
is always true; 

00000000 f 77777777 
and, 00000000 > 77777777 


Assuming the following initial conditions, what does this 
program do? 


BEGIN 


(A) 

= lOOB 

(Q) 

= SOB 

(100) 

= 00000064 

(101) 

= 00000104 

(102) 

= 70000000 

(103) 

^ 00000700 

CPR 

lOOB 

UJP 

*+2 

UJP 


CPR 

lOlB 

CPR 

102B 

UJP 

*+2 

CPR 

103B 

HLT 

0 

UJP 

*-5 


Answer: RNI sequence = BEGIN 

BEGIN+3 

BEGIN+4 

BEGIN+6 

BEGIN+7 


(Halt) 


Tabic IQ contains 100 IQ values. Count all the IQ*s. 
in the following ranges 0-79, 80-119, 120-up. Use the 
CPR instruction, then do it without the CPR instruction. 



STUDENT NOTES 




FLOATING POINT OPERATIONS 


12.1 INTRODUCTION 

12.1.1 Storage of Floating Pbint Numbers 

12.1.2 Normalizing the Coefficient 

12.1.3 Exponent 

12.1.4 Conversion Procedures 

12.1.5 Unpacking Floating Point Numbers 


12.2 'EXECUTION OF FLOATING POINT OPERATIONS 

12.2.1 Addition 

12.2.2 Subtraction 

12.2.3 Rounding of Floating Point Numbers 

12.2.4 Multiplication 

12.2.5 Division 

12.3 FLOATING POINT INSTRUCTIONS 

12.3.1 Floating Point ADD 

12.3.2 Floating Point SUBTRACT 

12.3.3 Floating Point MULTIPLY 

12.3.4 Floating Point DIVIDE 







12.1 INTRODUCTION 


12.1.1 Storage of floating point numbers 

Any number can be expressed in the form kB^ 
when k ■ coefficient 
B B base 
n » exponent 


Floating point is always packed into 2 words in the 3200, 
making a 48 -bit representation of the number. 

The lower 36 bits * the coefficient 

next 11 bits « exponent and sign of exponent 

Upper bit ■ sign of the coefficient 


Coefficient 
Sign bit 


Ixponent 


47 ^ 


36 35 


! P + 1 


Coefficient 


4 


00 


12.1.2 Normalizing the coefficient 

The coefficient is a 36~bit fraction, which is adjusted before 
packing, so that the fraction lies between -g- and 1. 

i.e. 1 > PRACTIOH ^ i 

The coefficient is always adjusted so that a binary 1 follows 
the radix point, and nothing is in front of the radix point. The adjustment 
is made by shifting the radix point and multiplying the answer by the 
required power of 2. 


e.g. ^8 ~ 100.0 in binary 

= .100 X 2^ in binary 
= .4 X 2^ in octal 


lOlg = 1 000 001. in binary 

= .100 000 100 X 2^ in binary 
= .404 X 2^ in octal 
.06 q = .000 110 in binary 
= .110 X 2 in binary 


.OOOOI 3 = 


• 6 X 
.000 
.100 
.4 X 


2"^ in octal 

000 000 000 001 in binary 


X 2“^^ in binary 
2“^^ in octal 


-^16 exponent = -I 63 == -I^j^q 


12 . 1.3 The Exponent 

lies in the range 0000 - 37770* However 1777g is not possible 
as it implies an exponent of -0 which will never result when 
performing a floating point operation. If one of the operands 
has 1777 for an exponent, it will be used as though it were 2000. 



12.1*3 (cont*) 


It is always biased before packing to enable comparison with 
other Floating point nimber^. 

This biasing ensures that the exponent is always positive. 

RULE ; If positive, 2000g is added to it. 

If negative, 1777 is added to it. 

o 

Thus if the biased value lies in the range OOOOg - 1776g, it is 
a negative exponent- 1777g does not normally occur as it = -0. 

But if the biased value lies in the range 2000 q - 3777g, it is 
a positive exponent. 


e.g. k X 2^ Exponent is positive, therefore 2000 added. 
= 2004 

and k X 2^°^ = 2407 

e.g. k X 2 ”^ Exponent is negative, therefore 17770 added 

- 1777q + (-4) 

- 17733 

and k x 2~^°L 1370 ^ 


12 . 1.4 Conversion Procedures 


( 1 ) Convert the number to binary 

( 2 ) Normalize the number 

( 3 ) Bias the exponentt 

( 4 ) Assemble the number 

( 5 ) If negative, complement the result 


Example : 4*0 


(1) 

Binary 

( 2 ) 

Normalize 

(3) 

Exponent 

(4) 

Assemble 


e.g. Pack 563g 

(1) Binary 

( 2 ) Normalize = 

( 3 ) Exponent 


- 100 . 

- .100 X 2^ 


.4g X 2^ 

3 + 2000 
2003 


2003 


400010000 0000 
-1-— 


Leftmost octal number « 2 = 010 
in binary 

Sign bit = 0 * P0SITI7E NUMBER 


101 110 011 

.101 110 oil X 2--= .563 X 2 ’-^ 
11 + 2000 - 2011 




12.1.4 (cont.) 



Ploatj 


Point Numbeirs 


Rules ! 

(1) If upper bit ,is a one» number is negative. Complement^ 
eind note that sign of the final answer must be negative. 

( 2 ) If exponent is less than 1777o> exponent is negative. 
Subtract 1777 from exponent. 


( 3 ) If exponent is greater theui 2000q, exponent is positive. 
Subtract 2000 from it. 

e.g. UHPAGK 

( 1 ) Rtnnber is positive (the upper bit =* O) 

( 2 ) Exponent is positive ( ^2000) 

« 2000 - 2000 « 0 

( 3 ) Number » .4 x2^ 





4 






(l) Upper bit is 1 - lumber is therefore negative, 
so first complement it 



( 2 ) Exponent is < 1777 j and. is negative 


« 1775 - 1777 


= -2 


Shift coefficient to ri^t 2 places 

( 3 ) Coefficient = .7 

= .111 

Shift = .001 110 

m *16 

Answer = -0 * 21875-10 





12,2 EXECTJTIOI^ OF FLOATING POINT OPERATIONS 


12.2.1 Addition 


(1) Equalize exponents "by shifting coefficient of the algebraically 
smaller number to the right. 

( 2 ) Add coefficients, and normalize 
e.g. 10^ + 100^ 


''8 


"8 


10 . 


8 


2004 

4000 j 00000000 

1008 = 

2007 

4000 I 00000000 


Shift coefficient of 10, 


8 

.12X 2^ = .00012X 2^ 

= .04qx 2 "^ 


2007 


0400 ■ 00000000 


Add coefficients and normalize 

.4000 0000 0000 X 27 

.0400 0000 0000 X 27 

- .4400 0000 0000 X 27 

this is normalized already 

Number = .100100000000 000000000000 OOOOOOOOOOOO 2 x 27 

= 1001000 . 

- 001 001 OOO 2 

- 1 1 Os 


12.2.2 Subtraction 


( 1 ) Equalize exponents 

( 2 ) Subtract coefficients and normalize 
e.g. 43g - 6g 

43„ - .100011 I 2^ - 2006430000000000 

O 

6„ - .110 X 2 ^ - 2003600000000000 

O 

Equalize exponents, ie, 2003 6000 0000 0000 (.IIO 2 x 2^) 

becomes 

2006 0600 0000 0000 (.OOOIIO 2 * 2^) 


Subtract coefficients and normalize 

.4300 0000 0000 x 2^ 

(-> .0600 0000 0000 X 2^ 

.3500 0000 0000 x 2^ 

.7200 0000 0000 x 2^ after being normalized 


Number = .111010000000 000000000000 OOOOOOOOOOOO 2 x 2^ 

= 11101 . 

= Oil IOI 2 






12.2.3 Rounding of Floating Point Numbers 


In floating point operations, the E register is joined to the AQ, 
register, to form a 96 -BIT REGISTER A(JE (the uppermost bit is the sign). 



AQ E 



No rounding is necessary. 



Rounded down because negative number. 


Summary: If the sign of AQ is different from the uppermost bit of E, 
one is added to AQ if AQ is positive or one is subtracted 
from AQ if AQ is negative. 

12 . 2.4 Multiplication 

(i) Unbias the exponents by subtracting 2000g or 17770 > as the case 
may be. 

(ii) Add the unbiased exponents. 

(iii) Multiply the coefficients. 











12,2,4 (cont,) 


(iv) Normalize the coefficient resulting and adjust the exponent, 
(r) Assemble the number. 


e.g. Multiply 100^ by 10^ 

100 ^ - 001000000 

o 7 

= .100000 X 2' (Binary) 
= .4x2^ (Octal) 

* .100 X 2^ (Binary) 


(i) Unbias 

2007 becomes 7 
2004 becomes 4 

(ii) Add unbiased exponents 


,4 X 2^ (Octal) 


2004 


4000 I 00000000 


exponents 


2007 


4000 I 00000000 


001000 


7 


'^8 


(iii) Multiply coefficients 

100q becomes .4g when normalized 

10^ becomes ,4^ when normalized 
o _o_ 

product = .20g 


(iv) 


(v) 

(vi) 


Normalize resulting coefficient 
.20 X 2^^ 

- .010 X 2^^ (Binary) 

12 

« .100 X 2'^ 

* .4 X 2^^ (Octal) 

Assemble answer 


2012 


4000 I 00 00 00 00 


Checking 

lOOg X lOg . lOOOg 

« 001 000 000 OOO 2 

* .100 X 2^^ (Binary - exponent in octal) 

= ,4 X 2^^ 


(Octal • exponent in octal) 





12>2,5 Division 


(i) Unbias the exponents 
(ii) Subtract the unbiased exponents 
(iii) Divide the coefficients 

(iv) Normalize the coefficient resulting and adjust the exponent 

(v) Assemble the numbers 

e.g. Divide 100- by 10^ 
o o 

100 ^ * 001 000 000 
o 


= .1 X 2^^ (Binary) 


, 

*.4x2'^ (Octal) = 

2007 

4000 j 00000000 

- 001 000 


1 

■ .1 X 2^ (Binary) 


1 

= .4x2^ (Octal) * I 

1 2004! 

4000 j 00000000 


T 


(i) Unbias the exponents 
2007 becomes 7 

2004 becomes 4 

(ii) Subtract unbiased exponents 

7 

zL. 

3 

(iii) Divide coefficients 

100q becomes .4g when normalized 

IOq becomes .4 when normalized , 

quotient ~ 


(iv) 


(v) 


(vi) 


Normalize resulting coefficient 

1.0 X 2^ 

= .1x2^ (Binary) 

= .4x2^ (Octal) 

Assemble answer 


2004 


4000 I 0000 0000 


Checking 


lOOg A lOg = lOg 

lOg = 001 000 (Binary) 

= .100 X 2^ 

= .4x2^ (Octal) 






12.3 FLOATING POINT INSTRUCTIONS 


12.3.1 Floating Point ADD 


locAnmi 

fiPESMIlHjaDIHISS «8«SS flHP 











23 18 

17 

16 16 14 00 


60 

E 


_:::_ 1 


a = addressing mode designator 
b = index designator 
m ~ storage address 

Description ; Add the contents of two consecutive locations ^ 

(M and M + 1) to the contents of AQ, where M * m + (B ) 
The normalized and rounded sum appears in AQ. 


Example ; 


pad FP5UM 


AQ = 


A 

iQ 

2 0 0 7 

4000[ 00000000 

FPSUM 

Ifpsum+1 

t 

2 0 0 4 

400 Oi 00000000 

1 

It of AQ 

1 

A 

IQ 

2 0 0 7 

1 

440 0] 00000000 


Exercise ; If contents of Registers and a part of memory are; 

(A) = 20014500 
(Q) == 00000000 


FPSUM 6060 6060 


FPSUHfl 

FPSIMf2 

FPSUMfS 

FPSlMf4 


2007 3621 


00000000 


2004 4000 


0000 0000 


Index register 3 contains 3> and 
Index register 1 contains 1, 

What would be AQ after execution of 

(a) PAD FPSUtf,3 

(b) PAD FPSUM,1 


12.3.2 Floating Point SUBTRACT 


1 ISCIiTIO* 

,6PEfiAii8N.MS§ir)Ciis mm% reis 

L. 

\FS8. l . . , , M. h . 





23 18 17 16 15 14 00 


lei 

0 


m 


a ^ addressing mode designator 
b index designator 
m » storage address 









12>3>2 (cont«) 


Description : Subtract the contents of two consecutive 
locations (M and M + 1) from the contents 

nf* AQ ,Tir‘h«aT*<a M = m 4. f'RD'i 


Example: 


of AQ,where M * m + (B°) 
A ,Q 


If (Aft) - 

2 0 0 6 

.. 1 

430 e! 00000000 

1 

FSB FP0P 

1 

! 


F.Pj2fP 

,FP0Pf 1 


2 0 0 3 

6 0 0. Oj 0 0 0 0 0 6 0 0 

Pinal result of AQ 

! 


A 

|Q 


2 0 0 5 

720 oj 00000000 


12,3.3 Floating Point MULTIPLY 


iggAmN i iupgSAiinjiiiFigiis ^ggscss nm 


23 18 17 16 15 14 

I 82 a b 


a = addressing mode designator 
b * index register 
m « storage address 

Description : Multiply the contents of AQ by the.contents 
of 2 consecutive locations, M and M + 1, 

where M * m + (B^). 

The product appears in AQ normalised and rounded. 

Example: 

-— A__[_2_ 

PMCT If (AQ) = f 9 n n 7 I A n n n n n n n 0 0 n 0 I 


2 0 0 7 

4000|0 0 0000 00 

EP0P 

I 

lEP^Pfl 

2 0 0 4 

4000100000000 


and the instruction 


FHJ EP0P 


A IQ 

the final - - | 

(AQ)= 2012 4000 |0 0000000 









12,3. 


4 Floating Point DIVIDE 



l0FERitl{§NJ0t)inE8S 

mum mil 



Hf,b ., , , 




23 18 

17 

16 15 

14 00 

1 

M 

L±J 

m 


a = addressing mode designator 
b = index designator 
m = storage address 


Description : Divide the contents of AQ by the contents of 
2 consecutive location , M and M + 1, where 

M = m + (B ). The result appears in AQ, 
nornialized and rounded. 

Example : If (AQ) are as shown below, FP0P 

contains 20044000, and FP0P+-1 contains 0, 
what would be the contents of AQ after 
execution of the instruction. 


PDV 

Solution; 


FP0P 


A 

[Q 

2 0 0 7 

400 0[ 00000000 

FP0P 

1 

,FP0P+1 

2 0 0 4. 

4 0. 0 0| 00000000 

A 

1 

iQ 

2 0 0 4 

4 0 0 oi 0 0 0 0 0 0 0 0 

1 


Final result of AQ 


I 




48-BIT REGISTER OPERATIONS 


13•! 48-BIT E REGISTER 

13.1.1 Introduction 

13.1.2 Trapped Instructions for the E Register 

13.2 TRANSFERS BETWEEN A AND Ey 

13.2.1 Transfer Ey to A 

13.2.2 Transfer A to E^ 

13.3 TRANSFERS BETWEEN Q AND Ej^ 

13.3.1 Transfer Ej^ to Q 

13.3.2 Transfer Q to Ej^ 

13.4 TFANSFERS BETWEEN AQ AND E 

13.4.1 Transfer E to AQ 

13.4.2 Transfer AQ to E 

Chapter P 

13.5 SCALE AQ 

13.6 USE OF THE SCALE AQ INSTRUCTION 




13,1 48-BIT E REGISTER 


13»1«1 Introduction 


The E register is a 48-bit, octal register* used as a 
supplement to AQ in floating point and 48-bit precision operations. 
It extends the size of AQ to 96 bits by forming AQg. 

All 3200 computers do not contain the hardware for 
the E register, which therefore cannot be displayed on the console 
of these machines. (Where the full hardware is available, the 
contents of the E register can be displayed on the console in the 
displays usually containing A and Q.) 


* The E register is the lower 48 bits of the 52 bit + sign Ej^ register. 
The upper 4 bits of Ej^ and the sign of Ej^ are not affected by 
Floating point, 48-bit multiply or divide, or inter-register 
operations. 

13>1«2 Trapped Instructions for the E Register 

Floating point and 48-bit precision operations are handled 
on the 3204 basic processor by a special software paekaige. The 
instructions are detected by the hardware, and "trapped**. They are 
then processed by the special software programs OPTBOXS and FBPBOXS. 
OPTBOXS examines each trapped instruction to see if it is a Floating 
point/48-bit instruction or a BCD instruction (see Section 14,3), 

If it is a BCD instruction, the program BCDBOXS is used to process 
it. If it is a Floating point or a 48-bit precision instruction, the 
program FDPBOXS is used. 

FDPBOXS simulates the hardware for the E register so that 
the instructions can be executed without the hardware being present. 



13.2 TRANSFERS BETWEEN A AND Ey 


13^2.1 Transfer Eu to A 


mmm 

|8FE§]^ll8NJIlflinEiS MQ8ESS flElS 

. : i ; i 1 : : 

BUA . 






23 18 17 15 14 00 



Description; This instruction transfers the contents of Sapper (t>its 47-24) 
to the A register. The E register is not disturbed by the 
transfer. 


Example; Suppose 0P48 contains 0* and 0F48+1 contains 2. 

If A contains 6, and Q contains 76000000, what 
will be in A as a result of: 



MUAQ 

EDA 

0P48 

1 


Answer; 

aq 

00000000 

1 76000000 


0P48 

0P48+1 


Multiplied by 

00000000 

1 00000002 

1 



A 

1 

R 

%r j^'L _ 

results in 1 

00000000 

' 00000000 

1 

00000001 i 74000000 


I 


Transferring Ey to A, (A) = 00000001 


13.2.2 Transfer A to Ey 


1 lODilTlllit 

8FE8ii1i8SJ(IBIFiEII$ yBjtESS FICIB 

^ . J. 

AEll^ _ _ 


f 

23 18 17 15 14 00 

! 

1 

6 



Description; This instruction transfers the contents of the A register 

to E (bits 47-24). E register bit positions 51 thru 48 

upper 

and 23 thru 00 are not disturbed by the transfer. Also the 
A register remains unchanged as does the sign of E. 


Example; What will be in after execution of the following 

instructions; 

ENA 2032IB 

AEU 



Answer; 


00020321 





13.3 TRANSFERS BETWEEN Q AND E^^ 


13.3.1 Transfer E^ to Q 


^ 18CIITI8N 

; mun REIII 



i_ UQ . 

1 ^ , 






Description ; The lower 24 bits of E, ie, ^lower’ transferred to 
the Q register. The E register remains unchanged at 
the end of the transfer. 


Example ; In the EUA example, if the instructions had been: 

MUAQ 0P48 

EUA 

ELQ 

What would be in Q after execution? 

Answer: (Q) = 74000000 


13.3.2 Transfer Q to Ej^ 


^ei»E8MigHJ89inE8 s mtiu riE1 8_ 

L r.. M -Z- . 


23 18 17 15 14 00 



Description : The contents of the Q register is transferred to 

(bits 23-00). Bit positions 51 thru 24 and the sign^o? 
E are not disturbed by the transfer. Likewise the Q 
register remains unchanged. 

Example ; In the following example: 

ENQ 2032IB 

QEL 

What will be in Ej^ after execution of the instructions? 


Answer: = 00G20321 











13.4 TRANSFERS BETWEEN AQ AND E 
13.4.1 Transfer E to AQ 


gPERiiissjuimis ii8ififss fiEii 

■ ;■., o>Q . 

^ f 

■ ^ t . , « 0 . :=I;:t H r ;:it i<t |}«i 2 :tt )>>}?»a.a«i 


23 18 17 15 14 00 



Description : Transfer the 48 bit contents of E (bits 47-00) to AQ. 

EyCbits 47-24) is transferred to A and Ej^Cbits 23-00) 
is transferred to Q. The contents and sign of E is 
not disturbed by the transfer. 


Example : In the EUA example, if the instructions had been: 

MUAQ 0P48 

EAQ 

What would be in AQ after execution? 


Answer: AQ 


A Q 


00000001 


74000000 


13.4.2 Transfer AQ to E 


mmm 

epi§hi8Njsg^Fic8S mmm Fins 


AQE , ^ ..,, 





23 18 17 15 14 00 



Description : Transfer the 48 bit contents of AQ to E (bits 47-00). 

A is transferred to Eu(bits 47-24) and Q is transferred 
to Ej^(bits 23-00). EQ(bits 51-48) and the sign of E 
are unaffected by the transfer. The contents of A and Q 
are not disturbed and remain after the transfer. 


Example : 


Divide the 48 bit operand in AQ by 0P48. Write the 
appropriate coding. (0P48) = 2. 


Answer: 


AQE 

SHAQ -47 

DVAQ 0P48 


Transfer Number to E for Div. 

Set AQ to sign of E 

(AQ) = Quotient,(E) = remainder 


At Start 
AQ = 

After AQE 
AQE = 


After SHAQ 
AQ = 


After DVAQ 
AQE = 


A 

Q 


El 

77777777 

mines 


A 

Q 

Eu 

77777777 

mines 

77777777 

mines 

A 

Q 



77777777 

77777777 



A 

Q 

% 

El 

77777777 

77777772 

00000000 

00000000 











13,5 SCALE AQ 


■ igC^IION 


Description; 


Example : 


Exercise; 


_ ePEdinssj gPinE ss mm% REis 

SC AQ “ 

i " 1 


23 18 17 16 15 14 _00 

13 1 b k 


b * index designator 
k = shift designator 

AQ is shifted left, end around, until the upper two 
bits (46 and 47 are unequal.) 

During the operation, the computer makes a shift 
coimt. A quantity K = k minus the shift count. 

If b = 0, this residue is discarded 

If b = 1“3> the residue is placed in 
index register 


AQ initial 
contents 


SCAQ 


AQ becomes 


A 

Q 

03000000 

00 000000 

24,2 


= 000 oil 000 etc. 

bits unequal, shift left 3 places 

= 011 000 etc. 

30000000 

00000 000 


K = k - shift count 


= 25q, which is placed in Index Reg. 2. 

If A contains 100B, and Q contains zero, what would be 
in A, Q and Index register 1 after execution of the 
following instruction? 


SCAQ 


2027B,1 





(e) For negative numbers, complement the number first. 
Then pack the number, as above and complement, the 
packed ntimber. 





Alternate method for packing floating point numbers: 

If the computer has floating-point hardware and 
if the number to be packed is a single precision integer 
(24-bit operand), then the following method is used 
instead of the one just illustrated: 



SHAQ 

-24 

F0RM 48-BIT SIGNED OPERAND 


SCA 

K2044 

MERGE WITH PR0PER EXP0NENT 


FAD 

• 

• 

K2044 

NORMALIZE THE E.P. NUMBER 


• 

UJP 



* 




K2044 

0CT 

20440000,0 

F.P. CONSTANT == 2044000000000000 


Here the FAD instruction is used to do the normalizing instead 
of the SCAQ. Also the normalizing is done after forming the 
floating point number rather then before. If the operand to 
be packed is larger than 24-bits or if the computer doesn't 
have floating point hardware, the number can be packed faster 
using the SCAQ instruction. 




BCD DIGIT OPERATIONS 


14.1 


14.2 


INTRODUCTION 


14.1.1 

BCD Digits 


14.1.2 

Field 


14.1.3 

Sign Bits 


14.1.4 

Ej) Register 

(In Machine) 

14.1.5 

Ej) Register 

(On Console) 

14.1.6 

BCD Fault 



BCD INSTRUCTIONS 

14.2.1 

Shift Ejj Register 

14.2.2 

Ed Equal to ZERO Jump 

14.2.3 

Ep Less Than ZERO Jump 

14.2.4 

En Overflow Jump 

14.2.5 

Setting Field Length in D Register 

14.2.6 

Load Ej) 

14.2.7 

Store Eq 

14.2.8 

Add to Ep 

14.2.9 

Subtract From Eq 


Chapter jn 


14.3 BCD TRAPPED INSTRUCTIONS 




14.1 INTRODUCTION 


14.1.1 BCD Digits 

The BCD instmctions handle 4-bit BCD DIGITS. These digits 
are the decimal digits 0-9 represented as follows: 

0000 • 0 
0001 - 1 
0010 - 2 
0011 - 3 


1001 « 9 

Each 24“bit word of storage is divided into 4 BCD Digit characters of 
6 bits, as shown: 

23 IB 17 12 11 06 05 00 


The lower 4 bits in each character are the BCD Digit. The upper 2 bits 
in the least significant character is used to represent the sign of the 
field* 


14.1.2 Field 


A field is a group of BCD Digits, of a maximum length of 12 digits. 
The length of the field is stored in the D register , which consists of a 
4 bit register within the hardware. It is not displayed on the Console. 


14.1.3 Sign Bits 


This represents the sign of the field as a whole - not of the 
individual BCD digit. It is stored in the least significant digit in 
the field. The signs bits of the other digits in the field must be 00, 
or a fault is generated. 

If the sign bit stored is 10, 
the field is negative. 

For all other combinations, it is positive 

i.e« ( 00 xxxx ) 

( ) 

( 01 xxxx ) positive field 

( ) 

( 11 xxxx ) 

Example: 

- 1438 

- 6290 

If the Field is 7 digits long, the sign is stored with the least 
significant digit (i.e. the ri^tmost of the field, * 9)- It is 00, so 

the number in memory is positive * 1,438,629* 


00 0001 

00 0100 

00 0011 

00 1000 

00 0110 

00 0010 

00 1001 

00 0000 






14*1«4 The En Register (in machine) - where hardware is available 


This is a decimal register, consisting of 12 BCD decimal digits and 
1 overflow BCD decimal digit. 


14°1«5 The En Register (on console) - where hardware is available. 


Displayed in the AQ register as decimal numbers. Displays the 
full register plus 3 additional characters, as shown. 


Sign of 
digit being 
currently 
accessed 
+ or - 


4 

1 

4 

1 

12 DEC DIGITS 

Digits 


Sign of 

Overflow 

being 

currently 

Ed 

4 or - 

digit 


accessed 


Max number in Eq = 999,999,999,999 

If one more is added, the digit in the overflow position 
will become a one* 


14>1->6 BCD Fault 


Programmer can arrange for an interrupt to occur if a BCD fault is 
discovered. He can also arrange to keep sensing for a fault without an 
interrupt. 

3 conditioTis will produce a, fault. 

(a) If the upper 2 bits of any digit (except those of the least 
significant digit in the field) are not 00. 

(b) If an illegal digit is present 

i.e. any four bit combination greater than 9. 

e.g. 1011 == 11 is illegal 

(c) If the contents of the D register are greater than 12 (l4g) 

BCD fault is sensed by the SENSE Internal Status Instruction: 

IKS 4000B 

If BCD fault, RKI P + 1 

If no fault, m P 4 2 




14 o 2 BCD INSTRUCTIDES 


I4o2o1 Shift 


Description : 


Example : 


Exercises: 


a. Register 

: o?ciii!§N.MeDinE8s lomess nm 

Tl/^'.^ — 

.4-..4.... J j i -J- i .JL A i. ; j 

i : i 


23 18 17 16 IS 14 00 


Lzi-j 

0 

Q 

k 


k = shift count 
b = index designator 


The Ej) register i^ shifted in one character steps 
(i*eo 4 bits at a time) 

K = k + (B^) with sign extension 

(The instructiog senses hits 0-3 aJ^d 23 only of the 
sum of k and (B ). 

If hit 23 ■ 0, Shift is left, end off, zero fill« 

If hit 23 « 1, Shift is right, end off, zero fillo) 

N.B. : BOTH SHIFTS ARE E^D OFF , 

SPB 1 

Shifts 1 character to left (i-e« shifts one digit 

to the left.) 


0 

1-1-1- 

000 !ooo;ooi;829 


E 

000 !00oioi8i290 

1_1_1 


(i) If the Ej) register contains 


Before Shift 


After Shift 


0 


6 7 8 I 4 3 7 


9 2 1 i 6 9 8 


What will it contain after the following instructions 


Sm 1,1 

SPB 3,1 

(ii) If the above result is followed by 
SPE -8,1 


What will be the final contents of Eq? 









14.2.2 Ed equal to ZERO Jump 


18C*T!0r 


OPCBidllli.tiSMmiS IBSItESS nEil 

i i ! 1 1 : ! 


. 


p 

} 

,0 iij !:? :<«;<? ”*ln> l2Ci>:» tt) I» lUiWt.Tl !>?-: 


23 18 17 15 14 


00 


70 


m = storage address 


Description: The contents of the 52-Mt Ep register are compared with 
zero 


If (Bq) = 0, HNI address m 
If (Ejj) / 0, BNI P + 1 


Example : 


EZJ,eQ 

SPE 

UJP 


ENDL00P 

1,2 

♦-^5 


ENDLi2l0P LDA 


144B 


etc* 


14*2.3 E|j less than ZERO Jump 


mmm { 

iOPEBMt8S.ilinEIS III8IESS REil 


1 . E ^ i . 1 ^ . J E , 1 f . , 


1 


23 18 17 15 14 00 

1 1 

5 

m 


m = storage address 

Description: The contents of the 52-hit E^ register are compared 
with zero 

If (Ep) ^ 0 ENI address m 
If (Bn) ^0 HNI P + 1 

14.2*4 Ejj Overflow Jump 


lICimN 1 

iaPEBUlBii J881HESS lilBtESS HELI 

, . J 

.... .. 

i. 

\ , * 

irOi:: ::? (a :S : c« i i > j tft {«» i Ml i’»?• it, (M : 


23 18 17 15 14 00 

Lz£_ 

6 

_ :: _ 1 


m ~ storage address 

Description : If the upper 4 Mts of the Ep register contain anything 
but zerO| control address m* 

If Upper 4 bits contain zero, RBTI P + 1 















14,2«4 (cont«) 


Examples8 


0 

-i- \ -1 

421]357|619 1878 


4 

1 1 ! 

€ 00,000 000 241 
_ 1 _ 1 _!_ 


- no overflow,jump ENI P + ^ 


- O/flow, jump RNI Address m. 


14#2>5 Setting Field Length in D Register 


mim 


^S£f ^ 


lesfss riEii 


23 18 17 15 14 04 03 00 



y = fielcf length indicator 

Description ; The instruction takes the lower 4 t)its of y and puts 
them in the D registero Maximum length of field is 
14B for all operations except 3TE, when maximum length 
of the field is l5Bc The D register remains at the 
value set until it is set again* 

It is not cleared in Master Clear operations. 

Example ; 3£T 14B 

Sets D register to ]4B for field length 


14°To 6 Load 




muu nm 



QjKLY INDEX REGISTER 1 
CAR 3£ USED 


23 18 17 16 


00 



b = index designator 

If b = 0, m is the unmodified address 
If b = 1, m is modified by (B^) sign extended 
m = storage address (character address) 


Description; The instruction loads the Ej^ register with a field of up 
to 12 numeric BCD characterso The field length is 
specified by the D register. Characters are put in 
the lower end of with zero fill to the left. 


Example ; SET 7 

LDE 400B 


3 

6 

00 

9 

4 

5 


8 


Find least significant digit 








14,2.6 (cont>) 


- M + (D- l) 

= M + (6) = 406 

L0o.ds this character into Eq first, into left^iiost bits of 
Eq . The R shifts one character, adds in next digits, shifts, 
etco \fhen loaded D characters, zero fills rest of Ep from 
left. 

Answer : £ = j 0 ] 000003689456 I 


14.2.7 Store Ep 


^ -/in 

5TB ^ nt,Z 


23 18 17 16 

65 I b 


OELY INDEX REGISTER 2 
GAIT BE USED 


b — index designator 

If b = 0, m is the unmodified address 
If b = 1, m is modified by (B^) only 
m = storage address (character address) 

Description ; The instructions stores a field of up to 13 decimal 
digits ( 3 ..G 0 D 0 numeric characters), beginning at 
address M (the address of the most significant digit 
in the field). The length of the field is determined 
by the D register. 

The least significant digit is stored first, and the 
register is then Shifted right one digit. The next 
digit is stored,and the register shifted right again? 
and so on. UOTE TMT STORUJO DESTROYS THE COFTEUTS OF Er 

Example ; SET 14 B 

STE 4 OOB 

—-- 

E = |0 I 746871264789 

Field = 12 characters 

Address of least = (B- 1 ) + M 

significant character ^ +400 

= 413 

= 100 001 011 

Character address = = 001 000 OlO 11 

= Word 102 
character 3 

12 digits in S stored as follows: 


7 

4 

6 

8 

7 

1 

2 

6 

4 

7 

8 

9 







14,2,7 (cont>) 


NOTE* 

DUMP OF MEMORY : 

If an area of memory containing BCD numeric characters is dumped 
out, the 6 hits for each character (2 sign hits, and 4 Bits for the 
digit) will he dumped in octal numbers: 

e.go 00 1000 » 8 in BCD digit 

But would be 001 000 » 10 in octal during dump» 

Example : A block of memory is as follows (Characters are BCD Digits) 


100 

4 

7 

8 

9 

101 

6 

4 

3 

1 

102 

8 

7 

4 

9 

103 

6 

2 

1 

3 


A program working on this is as follows: 


SET 

12B 


LDE 

4023 

(a) 

SET 

6 


STE 

4053 

(8) 

SET 

143 


LDE 

40 3B 

(c) 


What would he contained in % at the end of the operations? 


14,2.8 Add to Ejj 


ISCAKOK lOFEyililNJIiBiriEiiS FiEiO 

... 7.,. >> 3 ^,.. 7 

( 


23 18 17 16 


00 


66 b 


m 


MODIFIED BY INDEX 
REGISTER 3 ONLY 


b = index designator 

If b = 0, m is the unmodified address, i.e, M = m 
If b = 1, m is modified by (B^) only , M = m + (B^) 
m = storage address (character address) 

Description : This instruction adds ^D» numeric BCD digits to the Ej^ 
register. The *D» digits are lined up with the lower 
*D» digits of the Ej^ register before they are added. 

The Eq register has a maximum capacity of 13 digits, 
i.e., 12 digits plus overflow digit. The maximum number 
of digits in the number to be added is 12, i.e., D may 
not be greater than 12. M is the most significant digit 
of the number to be added. M + D » 1 is the least 
significant digit. 









14«2,8 (cont,) 


Ssamplei If (Bq) « 




-1-i 

0 0 0 1 0 0 0 1 

8 7 6 1 5 4 3 

And 

a block of memory is 

100 

7 

2 4 9 


101 

1 

5 8 2 


102 

6 

1 3 6 


103 

2 

0 8 4 



What will be the contents of Bp after the following 
instructions are executed? 


BUI 

1j3 

SE?r 

10B 

ADE 

400B,3 


Answer t (a) M = m + (B^) 

« 400 + 1 = 401 

Add to Ej) 8 character the least significant of 
which will be 

M + (D -l) 

= 401+7 


= 410 


Ed 


Pinal E D - 


0 

000 

— 

000 

_ 

876 

— 

543 



000 

024 

_ 

915 

826 


0 

000 

025 

I 792 

369 


14.2.9 Subtract from Ej^ 


ijins. mogr ss nm 


23 18 17 16 


67 


00 


b = index designator 

If b = 0, m is the unmodified address, i.e., M = m 
If b = 1, m is modified by (B^) only, M = m + (B^) 
m — storage address (character address) 

Descri£td£n: As for ADE, except that the field of up to 12 BCD digits 
is subtracted from the register. 









14.3 BCD TRAPPED INSTRUCTIONS 


All BCD instructions may be used in any 3200 Computer, regardless 
of the model of the processor. Where the processor lacks the BCD hardware 
package necessary for direct processing of BCD instructions, the implement¬ 
ation of these instructions is carried out by a special software package. 
The instructions are then known as ’’trapped" instructions. 

(it should be noted that where the software package is used, the 
contents of the Ed register cannot be displayed on the console, because 
the Ed register hardware does not exist.) 

The B.C.D. instructions are detected by a translator as they appear 
in the Function register, and trapped. They are processed like 
interrupts, and the following action takes place 

(a) P + 1 is stored in the lower 15 bits of address 00010 

(b) The upper 6 bits of the Function register are stored 
in the lower 6 bits of 00011 - the upper 18 bits of 
00011 remain unchanged. 

(c) Program control is transferred to 00011, and a RNI cycle 
is executed. 



COMPASS PSEUDO INSTRUCTIONS 


15.1 CONCEPTS OF PSEUDO INSTRUCTIONS 

15.2 PROGRAM DEFINITION 

15.2.1 IDENT Instruction 

15.2.2 END Instruction 

15.2.3 FINIS Instruction 

15.3 ASSEMBLY AREAS 

15.3.1 Introduction 

15.3.2 DATA Area 

15.3.3 Return Assembly Control to Subprogram PRG Area 

15.3.4 COMMON Area 

15.3.5 ORGR Instruction 

15.4 STORAGE RESERVATIONS 

15.4.1 Word Block 

15.4.2 Character Block 

15.5 ENTRY AND EXTERNAL INSTRUCTIONS 


15.5.1 ENTRY Pseudo Instruction 

15.5.2 EXTERNAL Pseudo Instruction 

15.5.3 SCOPE Loading of Subprogram 

15.6 SYMBOL DEFINITION BY EQUIVALENCING 

15.6.1 Introduction 

15.6.2 Word Equating 

15.6.3 Character Equating 

15.7 COMPASS OUTPUT LISTING CONTROL 

15.7.1 REMarks 

15.7.2 NO LIST Instruction 

15.7.3 Resume LISTing Instruction 

15.7.4 SPACE Instruction 

15.7.5 New Page EJECT Instruction 

15.7.6 TITLE Instruction 

15.7.7 Comments 




Chapter 




15>1 CONCEPTS OF PSEUDO INSTRUCTIONS 


A l^etter name would be "Assembly-Control" instructions* 
They are simply instructions from the programmer to the assembler. 

They will be used during assembly only. Program execution 
can make no use of them. 

e.go BSS 4 is an instruction to the assembler to set aside 4 words 
of storage somewhere in the storage area. The 4 words are set 
up during assembly and then the function and usefulness of the 
BSS instruction is finished. 



15.2 PROGRAI^l DEFINITIQI^ 


15»2»1 IDENT Instruction 


I iaciiT!8^ ^ ■opEa^iiaii.iiioiffiss mmm riciD 


f J 





Description ; The Location field is blank. However i f a symbol is 
written in it, COMPASS will ignore it® COI-IPASS picks 
up 8 or less alphanumeric characters from the address 
field, the first of which must be alphabetic. The 
Address field terminates at the first blank or the 
eighth alpha-numeric character, whichever is the first 
encountered. A period may appear in m, 

m = PRQGRA^.l NAME 

This will appear on the top of each page of the 
assembly listing. 

The IDSHT card must be the first card in the program 
or the job will be terminated. 

JSxamples ; (a) IDSl^T TSST F0R ILLEGAL SYlffi^^LS 


mD 


Program name will be TEST 
(b) IBSNx C01JTI1JU0US TSSTIKG TAPES 


EHD 

Program name will be C^NTIHU^ 
15>2>2 END Instruction 


mmm 

mmm nm 

1 M 

km .. m. 





Description ; The location field shoiild be blank. If a symbol is 
present, it is ignored by COIiPASS. 

The END instruction terminates the sub program.^ The 
final instruction in a COMPASS Sub-program must be 
an END instruction. 

Symbolic Transfer Address 

The signifies a symbol in the address field of some 
subroutine which has declared it to be an entry point. 

This address is called the Symbolic Transfer Address and 
need not be in the subroutine terminated by this END card. 

Examples : (i) A program of one subprogram. 

The symbolic transfer address must appear, and the symbol 
must be defined within the subprogram as an entry point. 


e.g. IDENT TEST 

ENTRY FIRST 

FIRST UJP ** 

END FIRST 

















15»2,2 (cont,l) 


(ii) A program of more than one Compass subprogram 

The s^bolic transfer address must appear in 
one of the El!TD statements, and be defined as 
an entry point as before. 

Example* I DENT TEST 

ENTRY FIRST 
FIRST UJP ** 


END 

IDEI^T WRITER 


END FIRST 

Note that this program could have appeared as follows: 

IDEJTT TEST 
ENTRY FIRST 

FIRST UJP ** 


END FIRST 

IJWH WRITER 


END 

(iii) A program of COMPASS and FORTRAN subprograms. 

A symbolic transfer address should not appear 
in any END statement in the program, if the 
FORTRAN program is the main program. 





15,2,2 (cont,2) 


Example ; TEST 

CALL 0E 
CALL TW0 


MD 


IDEI^T 0m 


fflif 

IDEOT TW^ 


END 

If the PORTRAIT is a subroutine of a C0I4PAS3 subprogram 
a transfer address should appear in the EISFL statement 
in the COMPASS subprogram. 

TRA Card diagnostic 

Where an error occurs in using symbolic transfer 
addresses, the error is flagged by the Loader when 
the program is loaded, and execution is not attempted. 

“The flag "TR" is shown (after the Load card is listed) 
on the standard output unit. 


15,2.3 FINIS Instruction 



OPCRiiiifiHjtiiiirtos mmm riEm 




\ i 



Description ; Symbols in the location and address fields are ignored. 

The instruction tells the assembler that it has reached 
the end of the assembly, and that all sub-programs have 
been assambled. If the FIILES card is put in out of 
order, the assembly will be terminated when it is 
reached. Control is returned to SCOPE when the 
PIKI3 card is read. 

Example : IDEM* TYP0UT 


mD 

iDmT s0m 


mi) 

IDENT TYPIN 


EDD 

FINIS 









15.2>3 (cont,) 

VJhere FORTHAN and COMPASS subprograms are used in the 
one subprogratm, the FINIS card is used to indicate the 
end of each group of subprograms. 

Egample; 7p0RTRAN, L ,-X 

PROGRAM 0E 


END 

SUBRjtelNE TW0 


END 

FINIS 

^CJIMPASS,L,X 

IDEJTT THREE 


END 

FINIS 



l 3*3 AwIpY AKxitfib 


15o«1 Introduction 

There are 3 areas in any sub program assembly 

(a) Subprogram Area. 

In this area all normal parts of the subprogram 
are assembled. 

(b) CQMMOIT Area 

Parts of the program decla^red to be in common are 
assembled in this area. 

(c) TATA Area. 

ParoS declared contain Tata are assembled in 

i» - -.i io -^rea. 

Three counters are used at assembly time to put parts of program 
in sequential places in the areas above. These counters are incremented 
to give the current address of the instruction being assembled in the 
particular area in which the assembly is taking place. 


15*3.2 DATA Area 


^ Q»TA 


Te script ion ; Information may be put into the Tata area at assembly 
time . 

There may be no reference to an external syribol, 
nor can any sprnibol in the TATA area be an entry 
point for the subprogram in which it occurs. 

The instruction specifies that all information 
following is to be stored or identified as part 
of the TATA area, until PHG or CCI^1M0I\ or EI^T 
occurs. Any instruction or pseudo instruction 
may follow TATA. The DATA area is shared by all 
subp-rograms at execution time. 

The Location and Aidress fields should be blarik. 

Pbcample; ITMT BINBCD 


TATA 

B3S 2 

DATA 0CT 273 




NOTSI t The total MTA area must he defined in 
the first subprogram loaded. 



15«3.2 (cont.) 


Example: 


IDBiJT MAIN 


DATA 

. ) 

. ) 

. )5 INSTRUCTIONS 

. ) 

. ) 

0EGB lOOB 

BS3 50 

PRO 


END main 

IDiJ?r SUBPRGl 


MEMORY ALLOCATION 
AT LOAD TIME 


INSTRUCTIONS IN 
SUBPROGRAM AREA OF 
SUBPROGRAM SUBPRGl 


FIRST 5 INSTRUCTIONS 
IN SUBPROGRAM MAIN 


DATA AREA USED IN 
SUBIROGRAM SUBPRGl 


AREA RESERVED AS A 
BSS IN SUBPROGRAM MAIN 


INSTRUCTIONS IN 
SUBPROGRAM AREA OF 
SUBPROGRAM MAIN 


Upper Boundary of 
Available Memory 


ol 

PRG Ajrea 
Program 
Length-1 

o" 

4 

DATA Area 
100 

161 

0 

PRG Area 

Program 

Leng^-1 


DATA 

(iRGR 5 


PRG 

15«3#3 Return Assembly Control to Subprogram PRG Area 


ISCAIiOX 


0PER«I!9KJ0SIF}EIS MIfiESS REll 


pm 


Description s All instructions that follow are to he assemhled 
in the subprogram area. 


The FRG instruction may he used to signal the end 
of the DATA or the CQI€uON areas. 

Example I IDEM* BLACKER 

DATA 

SCALEF 0CT 273 

0CT -0 

C0K0N 
BSS 
PHG 


m3 


INBUFF 


100 






15.3.4 COMMON Area 


_^ «M8i SS FltH 


Description ; The instruction lalDels and reserves space in the 
common area. 

No information can be put into the area at assembly 
time . If this is attempted, an error listing is 
given. COMPASS assumes that a PRG card had been 
included before the instruction and resumes assembly 
in the subprogram area. 

The COMMON area is shared by all subprograms at 
execution time. 


Note: C0M2-'i0N is the same for all subprograms. If 
it is desired to have separate areas, ORGR instructions 
must be used to separate them. 

Example ; IDEI^T TEST 


W0RKAREA BS3 100 


END 

I DENT SUBEDIT 

c0tm0s 

L0C BSS 60 

END 

In this program, the common area will be overlapped 
by the two subprograms. 

COMMON 

SUBPROGRAM 1 SUBPROGRAJi 2 


W0RKAREA 

L0C 





0 


59 


W0RKAREA and 
L0C reference 
the same word. 


This can be used to reference the same words in 
common in two subprogrcims. 






Example 


Setting up common area in 2 subprograms 



IDfflT 

MAX 


C0M0N 


TEMP 

BSS 

10 

CTABLE 

BSS,C 

6 


PRG 

• 



• 

• 

WD 



IDERT 

• 

SUBPI^i 


• 

C^!M0N 


QT0TAL 

BSS 

12 

FLAGS 

3SS,C 

4 


PRG 


END 


The area will be set up as follows: 


TEMP 

TEMP+1 

TEMI4-2 

TEMP+3 

TEMP+4 

TEMP+5 

TEMPfb 

TEMP4-7 

TEMM-S 

TEMP+9 



QT0TAL 

QT0TAL+1 

QT0TAL+2 

OT0TAL+3 

QT0TAL-I-4 

QT0TAL+5 

QT0TAL+6 

QT0TAL+7 

QT0TAL+8 

QT0TAL+9 

OT0TAL+1O 

QT0TAL+11 

FLAGS 




15>3*4 (cont,2) 


ITote s The only instructions which can he used in the 
COMOIJ area are as follows, 

3SS 

BSS,C IFT 

EQU I® 

EXT IFF 

ENTRY IFZ 

COM4 ON is terminated hy PRO 

DATA 
or END 


15«3*5 QRGR Instruction 


mh\m 

; jopESAiis.^pirf£gs mmm fi?is 




M * . 



Description : This instruction controls the relocatable address for 
storage of instructions, constants, or the reservation 
of space in any of the three storage areas. 

The location field is ignored by COWASS, but printed 
on the listing. 

Any symbol used in the address field must have been previously 
defined in the storage area being referenced. If 
COMPASS is assembling into one area, and an ORGR occurs 
with a different area relocatable symbol in the address 
field, an error results. COMPASS ignores the ORGR, 
but puts an error flag on the listing. 


Example: IDENT 0RGRT 

DATA 

BSS 2 

DTAG 0CT 227 

PRG 


A 


0RGR DTAG+1 


mi) 


Note: the error flag "A" set to show the error in 
the address field. DTAG is in the DATA area, and 
cannot be used in an ORGR statement in the SUBPROGRAM 


area. 









15.3.5 (cont.) 




ii) 

IDENT 

HARRY 



0RGR 

lOOB 



LDA 

• 

GIT 



« 

• 

END 



The first instruction (LDA GIT) will be assembled 
in Location 100, and the rest will be stored 
following it. 

iii) 

IDEKT 

0RGHTEST 



ENTRY 

START 

3T0HAGE ADDRE33 


0RGa 

50 


START 

UJP 

** 

00062 


LDA 

CI0 



3TA 

9 

CI0BI^CK 



9 

UJP 

02010B 


C0NTABLE 

0CT 

0,-1 

00076 and 77 


0RGR 

*+50 


INPFLAG 

0CT 

0 

00162 


0HGR 

INPFLAG+20 


0NE 

0CT 

1 

00206 


bi;d 

START 





This is made in the area currently being used. The 
address field will^ determine the number of words or character 
positions to be reserved. 


Word Block 




m = a constant, a symbol, or an address 
expression. 

Description; (i) The instruction reserves and labels a block of 

word storage. A symbol in the location field is 
the I5“bit, relocatable word address of the first 
word in the block of storage. 

(ii) The address field specifies the number of locations 
to be reserved. It may be 

(a) a constant 

Example: STATUS BSS 2 

DISKBUFF BSS 745 

(b) a symbol 

Example: VARINP EQU 5 

INPAREA BSS VARINP 

Note that the symbol must not be a relocatable 
address, or an error results: 

VARINP 0CT 5 

A INPAREA BSS VARINP 

(The "A^' indicates the address field error.) 

(c) An address expression vfhich results in a 
non relocatable value. 

Example: VARINP EQU 5 

INPAREA BSS VARINP+7 

If the symbol is a relocatable address, an 
error results. 

VARINP 0CT 5 

A INPAREA BSS VARINP-2 

(The “A*’ indicates the address field error). 

(iii) The double asterisk is illegal 

i.e. PRINTBUF BSS ** 







15>4,1 (cont«l) 


Description: (Continued) 


(iv) If an address field is zero or in error, the 
symbol is defined, but no storage is reserved. 


Example : TAGl 

TAG2 
TAG3 
TAG4 


BSS 

BSS 

BSS 

BSS 


1 

** 

1 

2 


The second instruction is illegal, and no location 
will be reserved forTAG2, but TAG2 is defined. It 
will reference the same word asTAG3. 


TAGi 

TAG2 and TAG3 _ 

TAG4 

TAG4+1 _ 

(v) All symbols used in the subprogram must have 
storage allocated to them: 


IDEITT MATRIX 
LDA C0UKT 

INA 

STA C0OTT 


C0UNT 


BSS 


1 


END 


(vi) NOTE : Where no symbol is used, storage is reserved 
but not labelled. It may be referenced from other 
labelled locations. 


Example; 


T^l 

0CT 

4 


BSS 

3 

TAG2 

0CT 

27 


BSS 

3 

TAG3 

0CT 

14 





15«4«1 (cont,2) 


Description ; (Continued) 

The dlock of storage set up will be: 

TAGl 

TAG2 


TAGS 



The location marked *** may be referenced as: 

TAGl+2 
or TAG2-2 
or TAGS-6 


15.4.2 Character Block 


mmm ’ iSDnrss nm 


BSS.C m 


^ i 

. ■ i i : 4 : ■» : 4 : r • ft : v .'i ::4 • :» i »: .'ft | fV j iCi H ■ iTxt tit ft:-i ti 



Description! Reserves and labels a block of character storage 
in the area currently in use. 

(i) A symbol in the location field is the 17 bit, 

relocatable character address of the first character 
in the block. 

(ii) The address field specifies the number of characters 
to be reserved. It may contain 

(a) a constant 

Example s CTAGl 3S3,C 6 

CTAG2 3SS,C 2 

Storage will be reserved as follows* 


CTAGl 

CTAGl+1 

CTAGl+2 

CTAGl+S 

CTAGl+4 

CTAGl+5 

CTAG2 

CTAG2+1 









15.4«2 (cont>) 


(ii) Continued 

(b) a symbol 

Example > SIZE EQU 5 

PARLIST BSS,C SIZE 

Note that the symbol must not be a relocatable 
address or an error results. 

SIZE OCT 5 

A PARLIST BSS,C SIZE 

(The ”A” indicates the address field error). 

(c) an address expression which results in a 
non~relocatable value. 

Example : SIZE EQU 15 

PARLIST BSS,C SIZE-3 

(iii) If a BSS, C insti^iction is followed by a BSS 0 
instruction, it forces any following character 


reservation 

to a new word. 

even if the last character 

word is not 

filled. 


Example: 

INPFLAGS 

BSS,C 6 



BSS 0 


0UTFLAGS 

BSS,C 2 


Storage is reserved as follows: 


INPFLAGS 

lNPFLAGS+1 

INPFLAGS+2 

INPFLAGS+3 

INPFLAGS+A 

INPFLAGS+5 

Not Used 

fJUTFLAGS 

0UTFLAGS41 

Not Used 




15 >5 ENTRY AND EXTERNA];. INSTRUCTIONS 
15,5*1 ENTRY Ps^eudo Instruction 


mMim 


6PEiiiiiiosjo0iri£8s mm% reis 

■■ i i i.. ..1 . 







Description The location field should he blank, hut if a symbol 
does appear, it will be ignored by COMPASS. The 
address field contains one of more location names 
separated by commas. No blanks may occur. The 
field terminates at the first blank, or at Coliamn 
73* IT there are more entry points to be defined 
than will fit on one card, a second card can be 
used. 

Sach of the address field location names contains 
a symbol defined as a subprogram relocatable word 
address by appearance in a location field elsewhere 
in the subprogram. 


Example s IDENT 

ENTRY 
START UJP 
ENA 


0SK 

START, INT0 
** 

0 


INT0 


UJP 




END 


START 


Note that more than one entry card can be used. 


I DENT TVI0 

ENTRY START 

ENTRY INT0 

START UJP ** 


INT0 UJP ** 


END START 


15.5.2 EXTERNAL Pseudo Instruction 


1 18CSRM 

^0PEiiAii8SjiiDin£i?$ mm$ reio 



1 ! ! 1 ; : : i , : . i = r , 



i 

S : ‘ .i i :5 { At .»l 3*^3? r 


Description s The location field should be blank. Any symbol appearing 
there will be ignored by COMPASS. The address field 
contains one or more location names up to Column 73* 

These must be separated by commas. No blanks may occur. 

A symbol in the address field may not be defined in the 
subprogram in which the EXT instruction appears. 

The EXT instruction can only reference location names 
in the subprogram area of another subprogram. It 
cannot reference DATA or C0^!M0N areas. 





15«5«2 (cont.l) 


Example I 


Example : 


IDENT MAIN 
ENTRY NUMBER 

• 

NUMBEH 0CT 37 


END 

I DENT SUBPI^ 

EXT NUMBEH 


LDA NUMBER 


END 

All sulDprograms within a main program are assembled 
independently, and all symbols in a subprogram are 
local to that program only, unless declared as 
external symbols in another subprogram, and as entry 
points in the former program. 

IDENT DRIVEROl 


LDA TAG 


TAG 0CT 

END 
IDENT 


LDA TAG 


TAG 0CT 27 B 

END 

The two Symbols (TAG) are not linked in any way. 
Each will be referenced only by the subprogram in 
which it appears. 


14 

DRIVER02 



BUT i If they refer to the same symbol, the 
Program could appear as follows* 

IDENT edit 

ext GARDBUFF 

LM GARDBUFF 


END 

IDENT read 

EISTTRY GARDBUFF 


LDA GARDBUFF 


GARDBUFF 0CT 24 


END 

Address arithmetic is not permissible with external symbols 
e.g. LDa CARDBUFF+2 

But, address modification is permissible 

e.g. LDA GARDBUFF, 3 


SGQPS Loading of Subprograms 

The Assembler establishes links between the subprogram as 
directed by the EXT and ENTRY instructions. These linkages are then 
set up by the Loader (a part of the SCX)PE monitor) when the assembled 
program is loaded prior to execution. 

If an external is referenced in a subprogram, but there is 
no ENTRY for it in any other subprogram, SCOPE will look throu^ the 
Library Tape to see if it can find a Library Routine to enter. 

IDENT QUAD 

EXT SQRTF 


RTJ SQRTF 


* 

MD 

IDENT DISG 


END 

If it can find no Libraiy routine of the same name, it will 
give an error symbol, and terminate the run. (This is done at Load Time, 
not in Assembly). The error symbol appears on the listing after the 
LOAD card print out e.g. LOAD, 56 

DISC UD SQRTF 




15.5>3 (cont,) 


The COMPASS assembly listing of a subprogram containing 
external symobl references will have the usual format, except that 
the address field will be prefaced by an X, 



00010 00 1 X00003 


The digits following the X are the reloctable word address of a 
previous instruction in the subprogram area which references the 
external symbol. The first (or only) reference to the external 
symbol will contain X77777 in the address field. COMPASS thus 
produces a "threaded list” of instructions referencing the external 
symbol. 



IDEKT TEST 

EXT CI0 


ENA 10B 


00000 14 6 00010 


RTJ 

• 

CI0 

OOOlO 

00 7 

X77777 

• 

RTJ 

CI0 

00030 

00 7 

XOOOiO 

i 

RTJ 

EUTD 

CI0 

00050 

00 7 

XOOO 3 O 


The address of the last instruction referencing the external is placed by 
COMPASS into the XNL Loader Card to begin the backward threaded list. When 
the loader loads the program, it enters the actual address of the external 
symbol into the address portion of each instruction referencing the external. 
It does this by saving the address portion of the last instruction referencing 
the external symbol, it then replaces the address with the actual address of 
the external symbol. The loader then, repeats the process using the saved 
address as the new last instruction address referencing the external symbol. 
The process continues until the address of the next instruction in the list 
is 77777, which indicates all Instructions referencing this external symbol 
have been modified. 

Thus, if CI0 is loaded at address 00106, the program will be loaded into 
storage as: 

00000 14600010 (ENA lOB) 


00010 00700106 (RTJ CI0) 


00030 00700106 (RTJ CI^) 


00050 00700106 (RTJ CI^) 



15>6 SYI4BQL DEFIMTIOlv^ BY EQUIVALEK-CIKG 


15*6.1 Introduction 


A symlDol may be defined by equivalencing it to another symbol, 
a constant, or an expression. The symbol may be defined as an absolute 
value, a relocatable word or relocatable character addresso The symbol 
in the location field is equivalenced to the value of the address field. 

A symbol which is declared an entry point must not be equated to a symbol 
which is declared external. I^hen symbols are equivalenced they are 
identical and interchangeable. 

All symbols in the address field of an equivalence must have 
been previously defined by the appearance in the location field of a 
proceeding instruction, or in an EXT pseudo instruction. 


15.6.2 Word Equating 


mmm 

OPEglliONJiDiFiEIS HiORESS FlflS 


... 


» 


Description : The symbol is equivalenced to another symbol, a 

I5~bit word address, or a 15-bit value. The symbol 
in the location field will be non-relocatable or 
relocatable, as determined by the address field. 

If the location field is blank, an error occurs. 

The address field may contain 

(i) An integer, modulo 2*^^-l(l5 bits or less) 

(ii) A symbol, previously defined 

(iii) An address expression containing symbols 
previously defined. 

If a symbol in the address is defined as relocatable 
in a given area, the symbol in the location field 
will also be relocatable in that area. 


Examples: EQU 

DATE EQU 

TEMF 333 

3YM EQU 

TEMP2 EQU 


Assembled as follows 

00165 


57641B 

27B 

1 

TEMP 

SYM+6 

s™0L 576-41 

DATE 00027 

TEMP Storage reserved 

SYM 00165 

TEMP2 00173 


TEMP, SYM and TEMP2 are relocatable 





15.6.3 Character Equating 


l8€AIfP 

0f£Wll8N.li(l8IF«8S AgOlfSS FlEtfl 

i 1 • i ; : M 

me. 


\ 


Description s The symbol is equivalenced to a 17-bit address, 

a 17-bit value or another symbol. The symbol will 
be nonrelocatable, or relocatable, as determined by 
the address field. If the location field is blank, 
an error occurs. 

The address field may contain 

17 

(i) An integer, Modulo 2 -l(l7 bits or less) 

Examples ABADD EQU,C 372B 

ABADD is equivalenced to the 17-bit character 
address 372 , which is word 76 , character 2 . 
This word address is shown on the listings 

000762 ABADD EQU,C 372B 

00027 date EQU 27B 

(ii) A symbol previously defined 

Example s SYM BSS,C 1 

NDFLAG EQU, C SW 

If the address of SYM is 00013, the value 
of NDFLAG will be 13 also. 

(iii) An address expression, containing symbols 
already defined. 

Example s NDFLAG EQU,C SYM-4 

If the address of SYM is 00013, the value 
of NDFLAG will be 50. 

Word address 13 = character address 54 

- _4 

NDFLAG = character address 50 






13>7 COMPASS OUTPUT LISTING CONTROL 


The programmer can control output listings under C0MPASS 
with these instructions. They are written in the same way as any 
other instruction. 

15>7>1 REMarks 


LilCftflSN 

1 ioPERaiiUNjosifiBS mm nm 

: ^ ^ J. : M 

HCM .;. 

1 

i 


Description; Any remark may he inserted into the source program, 
to appear on the output listing® All columns except 
9-13 may he used. 




9 

10 13 

Example; 

THIS IS 


HEM 


HU4AHK IKTRUCTION 


15.7.2 NO LIST Instruction 


mmm mmmMmmm ibbii ss nm 


Description ; The instruction suppresses listing of the subprogram 
until the instruction LIST is encountered. 

However, if lines containing errors are encountered, 
they will he printed out, regardless of the N0LI3T 
instruction. 

The instruction will not appear on the output listing. 


15.7.3 Resume LISTing Instruction 


/ 7 "'..; Ilist .,. 7 '^'. "■■■;'7 ... 


Description ; The instruction resumes output listing after a 
N0LI3T instruction 

If LIST occurs without a proceeding h0LI3T statement 
it is ignored. 


15.7.4 SPACE Instruction 


jtiihSh jpu-j'ii-.MiPsHFis mmi aas 

_ 77 _ . m _.. 


Description; The instruction instructs the printer to skip m 

lines of print, or go to the top of the next page, 
whichever is the less® 
m is an unsigned decimal integer. 

Examples; (i) SPACE 2 

2 lines are skipped on the printer 
(ii) If only 3 lines remain in the page, 

SPACE 10 

v/ill cause the printer to skip to a new page 
and begin in line 1 of the page® 












15.7.5 New Page EJECT Instruction 




oPEUMigNJSDimis mnu fifio 

; t , , j , , 


e/gcr , , , , ;. 

i , ; i M ■> ^ 5 i » ■ ^ i » ^ 


i to . i ■> liOi tt, it: it* i*♦ 7 : 


Description ; The page being printed is fed through the printer, and 
the line following the EJECT instruction will be the 
first line of listing on the new pagSo 
The address field must be blank or an error will occur, 
although comments may be inserted from column 41« 


15.7.6 TITLE Instruction 


lOCIiTfOif 


Tint 


firio 


title to fee u,%fi4 


Description ; Normally the name of the subprogram will appear at 
the top of each page of listing of the subprogram. 

If another title is required instead, it can be 
inserted using this instruct!ono The heading obtained 
from the IDEKT or previous TITLE instruction is 
replaced, and the first page following the TITLE 
instruction will have the new headingo 
If the new heading is to be inserted immediately, the 
instruction EJECT should immediately follow TITLE. 

If the new title is to be used on the first page of 
the listing, the TITLE instruction must immediately 
follow IDENT. 

The title must be contained in columns 20-72 of the 
address field. 


Examples: 

(i) 

IDENT 

TEST 



TITLE 

TEST TVffi ILLEGAL CHAHACTERS 



This will cause the full title to be printed 
on the first and subsequent pages of the listing 
of the subprogramo 


(ii) 

IDENT 

TEST 



TITLE 

TEST PjZiR ILLEGAL CHARACTERS 



TI'TLE 

EJECT 

PRINT 0UT CHARACTERS F0UND 



END 




The first title will be printed on all pages until 
the second TITLE instruction is found. A new page 
will be begun by the EJECT instruction, and it 
will bear the new title. 

15*7*7 Comments 





When COMPASS detects a card with an asterisk in column 1, it 


prints the content of t’ e card as a comment. No other action is performedo 
Note ; The asterisk itse f is not printed. (See also Section 2.2.3.1) 








SCOPE ORGANIZATION OF INPUT/OUTPUT 


16.1 INTRODUCTION 

16.1.1 Programmer Units 

16.1.2 Scratch Units 

16.1.3 Systems Units 

16.2 CENTRAL INPUT/OUTPUT ROUTINE 

16.2.1 Introduction 

16.2.2 Calling Sequences 

16.2.3 Input/Output Operations 

16.2.4 Tape Control Operations 

16.2.5 Unit Status Requests 

16.2.6 Format Selection 

16.2.7 Page Control of the Line Printer 


Chapter 








l6o1 INTROmCTION 


Under SCOPE, Input/Output devices are specified lay Logical 
Unit lumbers (LUN*s) which are organized according to functiono The 
programmer or operator assigns the logical unit to a particular type 
or unit of hardware, through SCOPE controlo 

Logical Units may be specified as 

(i) Programmer units, 

(ii) Scratch units, 

or (iii) System units. 


16 . 1.1 Programmer Unit 3 

They are for general purpose use by the programmer, and they 
are unrestricted as to use in any run in a job. 

Once defined, the definition of the programmer unit is 
fixed for the whole job. They are released by SCOPE at the end of 
the job, unless saved by the programmer by the use of a SCOPE unload 
card. 

Programmer units are numbered 1-49* 


l6°1o2 Scratch Units 

Scratch units must be defined for each run, and are released 
at the end of the run. They are assigned and used by Library programs, 
and may be accessed by the programmer for temporary use^ 

Scratch units are numbered 5U-55- 
They cannot be saved by the programmer. 


16 . 1.3 Systems Units 

Systems units are assigned to specific physical equipment 
within SCOPE, but these assignments may be altered by the operator. 
They are used for certain common functions, and may he protected by 
SCOPE from input-output requests which might destroy their contents. 


Systems units are numbered 5^63? as follows: 

56 Load and Go (for storage of object decks from 

assembly, prior to Loading and 
Execution) 

57 Accoxmting 

58 Camnents fron operator (only read requests allowed) 

59 Comments to operator (only write requests allowed) 
Standard Input (protected =>#?air«st. writi ng, etc. ) 

61 Standard Output - holds ii stable output 

62 Standard punch - output from COMPASS, etc. 

63 Library. 



i6,2 CgrTHAl imput/output houtihb 

16«2«1 Introduction 


Input/Output requests in COMPASS programs are written as 
calling sequences for monitor routines controlled by a central Input/ 
Output routine called CIO<» 

CIO performs the following functions: 

(i) Selects an available channel 

(ii) Rejects requests if 

(a) the unit is not available (e.go due to an 
operator error)o 

(b) no access channel is available 

(c) an illegal instruction (function code) is giveno 

(iii) Provides the current status for all requestso 

(iv) Initiates all l/O operations, and then returns 
control to the main program so that processing 
may continue while the l/O operation is carrj.ed 
outo 

(v) Responds to external interrupts, and transfers 

control to a routine specified by the programmer. 


l6»2o2 Galling Sequences 

Input/Output operations are specified by entering an octal 
function code and other parameters into a calling sequence. The function 
codes are 


Function Code 

Request 

01 

Read 

02 

Write 

03 

Read backwards 

04 

Rewind 

05 

Unioad 

06 

Backspace 

07 

Space forward past 1 E0F 

10 

Space backwards past 1 B0F 

11 

Write E0F 

12 

Erase 

13 

Status 

14 

Format 


There are 4 operations performed with CIO 

(i) l/O operations 

(ii) Tape control operations 

(iii) Unit Status operations 

(iv) Format selection operationso 




16.2>3 Input/Output Operations 


The function codes used by Input/Output operations are: 

(a) 01 READ n words, starting at FWA (First word address) 

(b) 02 WRITE n words, starting from FWA 

(c) 03 READ BACKWARDS, n words, and store backwards, 

starting at FWA-fti-1. 

Calling Sequence : 

Input/Output operations are requested by the following sequence 
of instructions. 


s 

s 

OPERATION.MDDIFIERS IDDRESS FIELD COMMENTS 
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Notes : (a) The logical unit number (LUN) is defined by an EQUIP card, and 

may be 1-63, depending on function code. 

(b) The function code is an octal number, 1-14 as defined previously. 

(c) The interrupt indicator selects an interrupt on normal or 
abnormal end of operation when set. 

0 = no interrupt 

1 = interrupt on ABNORMAL end of operation only (end of tape, 

EOF mark, load point, parity error, lost data for mag. tape.) 

2) interrupt on an end of operation, whether normal 

3) or abnormal. 


(d) JUMP is any legitimate jump to the reject address. 

(e) Interrupt address is the address of a closed subroutine to which 
control goes when the specified interrupt occurs. 

(f) Reject address is a symbolic address to which control goes in the 
event of CIO rejecting the calling routine. In the event of a 
reject because a channel or a unit is not available the A register 
will contain zero. If the reject is due to an illegal function 
code, the A register will contain a non-zero quantity. For both 
types of rejects, the Q register will contain the status of the 
unit. 















16.2.3 (cont,I) 


(g) The mode designates the method of recording, and is given as 
an octal number. 

If no mode is designated, binary mode is assumed and density 
is under the control of the operator. 


Code 

Density 

Parity 

00 

Do not select a new mode 


40 

none 

even 

41 

none 

odd 

50 

low 

even 

51 

low 

oda 

60 

medium 

even 

61 

medium 

odd 

70 

high 

even 

71 

high 

odd 


(h) First Word Address (FWA) is the symbolic address of the first 
word in the input or output area. 

(i) Number of words (n) is the decimal number of words to be 
transmitted. 

(j) If no interrupt is specified, the normal return is written in 
location L+5. 

(k) On interrupt, before control is passed to the interrupt address, 
SCOPE saves A, Q and the 3 index registers. On completion of 
the interrupt subroutine, the programmer must return control to 
SCOPE, which will then restore the A, Q and Index registers to 
their original values. Note that no values obtained in the sub¬ 
routine can be returned to the main program in these registers. 

Example : 

Write at 556 bpi in BCD on a magnetic tape that has previously 
been defined as LUN 20, a 27 word block of data commencing at the symbolic 
address ORIGIN. 

After successfully initiating the write operation, jump to the 
symbolic address PROCESS and continue the execution of the program. 

In the event of an abnormal end of operation, go to the 
symbolic address ABANDON; and if the write request is rejected, jump to 
PAUSE. 




16,2.3 (cont.2) 


Answer: 
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Use of interrupt facility (See also Section 21.3) 

If an interrupt address is specified, and the interrupt 
indicator is non zero, control transfers to the interrupt address at the 
end of the operation, or upon an abnormal condition interrupt. 

Before giving control to the interrupt address, SCOPE saves the 
contents of the A, Q and three index registers. It then enters the current 
condition and status of the unit in the A and Q registers respectively. 


C = Condition of unit 
0 = dynamic 
1 = static 

LF = Last function code (other than 13) given 
for the unit 

TCA = Terminating character address of data 
transmission contained in the Buffer 
Control Register. 


LS = Logical Status of the Unit 

00 = (a) if a status request, unit is static, 
channel is available 

(b) for reject return, hardware reject 

(c) for normal return, unit is dynamic 

01 = Channel is not available for any requests 

10 previous operation is incomplete 

11 — previous operation is complete, but an 

interrupt request is being processed. 

LC = Last channel to which the unit was connected (or 
is still connected), 

R — Retention code (from standard 3200 tape label) 

0 = tape may be used for output 
1 = contents of tape should not be destroyed. 


STATUS See following chart. 












16,2,3 (cont,3) 


UNIT STATUS TABLE 


STATUS 

BIT 

MT 

OR 

CP 

PR 

PT 

TY 

00 

Ready 

Ready 

Ready 

Ready 

Ready 

Ready 

01 

Busy 

Busy 

Busy 


Busy 

Busy 

02 

Write 

enable 






03 

File 

mark 

EJZfF 





04 

Load 

point 






05 

E0T 

Hopper 

empty 



Tape 

supply 

low 


06 

DENSITY 

00 = low 

01 = med. 

^ n _ u 

I V/ — 






07 






08 

Lost data 

Fail to 
read 

Fail to 
feed 




09 

End of 
operation 






10 

Parity 

error 

Reader 

error 

Compare 

error 



Parity 

error 

11 

Binary 

mode 

Binary 

card 

Binary 

mode 


Binary ' 
mode 


12 


Stacker 
full or 
japimed 





13 







14 





I 


15 







16 








NOTES : (a) Density is signified "by combinations of 2 bits - 

bits 6 and T - as shown. 


(b) Bits 13-16 are not used. 








































16,2.3 (qont«4) 


Control transfers to the interrupt address by a retm?n jump 
instruction established by SC0PE within the CIO routine. 

The interrupt address should therefore be an unconditional 
jump instruction to enable control to return to CIO after the interrupt 
has been processed 

e.g. INTERUPT UJP ** 

The programmer must transfer control to SGJjjpE from the 
interrupt routine by returning throvigh linkage established by the 
return jump instruction 

e.g. INTRUPT UJP ** 


UJP, I INTRUPT 

Upon regaining control, SCj2(PE restores the A, Q and Index, 
registers, and then returns control to the running program. 

Note that values placed in A, Q or the index registers in 
the Interrupt routine will be lost when the return to CIO is made. 
Values to be returned should therefore be stored before the transfer 
of control is carried out. 

An example of this appears on the following page. 




16«2,3 (cont«5) 


Example; 


Read 500 words from tape LOT 3 into a buffer commencing at 
BUPPo When the Operation has been initiated, continue program execution. 
When the operation is complete, set location FLAG to a non-zero value. 

If the read request is rejected because of an illegal code, jump to 
ABANDOH. If it is rejected due to channel or unit not being available, 
jump to PAUSE. 

Answer : HTJ CIO 

01 3,2 

01 REJ 

51 BUFF 

500 

INTER 

LDA 


INTER UJP ** 

ENA 111 IB 

3TA FLAG 

TTTD T-KTmm-D 

UUX 

REJ AZJ^EQ PAUSE 

UJP ABANDON 


16o 2.4 Tape Control Operations 


The codes used in tape control calling sequence are 

04 REWIND 
05 UNLOAD 
06 BACKSPACE 

07 SPACE FORWAHD PAST ONE E0P MARK 

10 SPACE BACKWARDS PAST ONE E0P MARK 

11 WHITE E0P 

12 ERASE 


Note: 


The calling sequence s 


Location L 
L+1 
L+2 
L+3 
L+4 


RTJ CIO 

function code LUN, INTERRUPT INDICATOR 

JUMP REJECT ADDRESS 

INTERRUPT ADDRESS 

NORMAL RETURN 


(a) If no interrupt is requested, the normal return is written 
in Location L+3o 

(b) The notes for l/O control applj here also. 



16>2«4 (cont>) 


Examples : 

(i) To rewind logical unit 56 
RTJ CIO 

04 56 

UJP 

normal return 

(ii) To write an end<-of-file on LUN 20 

RTJ CIO 

11 20 

UJP *-2 

normal return 

(iii) To space forward past an end-of-file mark on LUN 17 
RTJ CIO 

07 17 

UJP *->2 

normal return 

The di3?ection of tape motion following a BACKSPACE request 
depends upon whether the last operation was a READ or a 
READ BACKWARDS operation - 

(a) If the last operation was a READ operation, the 
tape will move backwards. 

(b) If it was a READ BACKWARDS operation, the tape 
will move forward one record. 

Other motion requests indicate the true direction of the 
tape and are not affected by READ BACKWARDS. 

Tape control operations require the channel only during 
initiation of the function. They do not cause the channel 
to be busy while the function is carried out. Howevery if 
an interrupt at the end of operation is requested, CIO 
considers the channel to be busy until the interrupt occurs. 


Notes: (i) 


(ii) 


16 . 2.5 Unit Status Requests 

For codes returned as status replies, see table on (cont.3) of 


section 16.2.3* 



The calling sequence: 

Location L 

RTJ 

CIO 

lH-1 

13 

LUN, Dynamic flag 

I 1+2 


RETURN 


NOTES : (a) The function code in L+1 is always 13* 


(b) SCJ^PE provides the status in the Q register, and the 
CTxrrent condition in the A register (A is negative 
if the unit is static, positive if it is dynamic). 

( 0 ) flag : 

If this is non-zero, the unit is interrogated for 
status unconditionally. (Status is given if unit is 



16*2,5 (cont,) 


busy or not)o If the flag is zero: 

(i) If it is not busy, the status of the last 
completed operation is given. 

(ii) If the unit is busy, the current status is 
returned. 


16 . 2.6 Format Selection 

The codes iised in this sequence are - 

1 = BCD 

2 - BINARY 

3 = LOW 

4- — MEDIUM 
5 = HIGH 

The calling sequence: 

RTJ CIO 

14 LUN, PORMT CODE (as above) 

JUMP REJECT ADDRESS 

NORMAL RETURN 


16.2,7 Page Control of the Line Printer 

The first character of the output buffer is used to 
position the paper prior to and after printing. This is accomplished 
by the following sequence of events. 

(a) The first character is removed and replaced with 
a blank. 

(b) The corresponding function code is found and 
selected, 

(c) The output buffer is printed. 



16.2.7 (cont.l) 


The character codes used in Page Control are: 


er Character 

Action Before Print 

Action . 

After Print 

1 

Skip to channel 

8 

Space 1 

line 


2 

Skip to channel 

7 

Space 1 

line 


3 

Skip to channel 

6 

Space 1 

line 


4 

Skip to channel 

5 

Space 1 

line 


5 

Skip to channel 

4 

Space 1 

line 


6 

Skip to channel 

3 

Space 1 

line 


7 

Skip to channel 

2 

Space 1 

line 


8 

Skip to channel 

1 

Space 1 

line 


A 

No space 


Skip to 

channel 

8 

B 

No space 


Skip to 

channel 

7 

C 

No space 


Skip to 

channel 

6 

D 

No space 


Skip to 

channel 

5 

E 

No space 


Skip to 

channel 

4 

F 

No space 


Skip to 

channel 

3 

G 

No space 


Skip to 

channel 

2 

H 

No space 


Skip to 

channel 

1 

blank 

No space 


Space 1 



0 

Space 1 


Space 1 



- 

Space 2 


Space 1 



* 

No space 


No space 


other 

No space 


Skip to 

channel 

1 


Examples: 

(a) To advance paper to the top of the new page 


RTJ 

CI0 

02 

61 

RTJ 

REJX 

00 

PAGE 

00 

1 


PAGE 


BCD 


1,1 



16.2.7 (cent,2) 


(b) To advance one line 


RTJ 

C10 

02 

61 

RTJ 

REJX 

00 

DS 

00 

1 

BCD 

1, 


Note: If unit 61 is assigned to tape by the operator and the 
tape is listed later or is listed off-line, trouble may 
develop because of the short print record (4 chars). 
Therefore it is recommended that all records be at least 
24 characters so that they won^t be considered ^noise^ 
records by tape input routines. 
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SCOPE CONTROL CARDS 


17.1 INTRODUCTION 

17.2 SEQUENCE CARD 

17.3 JOB CARD 

17.4 ENDSCOPE STATEMENT 

17.5 ENDREEL STATEMENT 

17.6 CTO STATEMENT 

17.7 REWIND STATEMENT 

17.8 UNLOAD STATEMENT 

17.9 EQUIP STATEMENT 

17.9.1 Hardware Definition 

17.9.2 Equating Logical Units 

17.9.3 Physical Unit Assignment 

17.10 TRANSFER STATEMENT 

17.11 LOAD STATEMENT 

17.12 COMPASS LIBRARY CALLING STATEMENT 

17.13 RUN STATEMENT 


Chapter IQ 


17.14 DIAGRAMMATIC DECK 





17>1 INTRODUCTION 


SC^PE control cards have a 7>9 punch in colximn one. 
There must be no other punchings in column 1• 


Columns 2 throu^ 80 contain Hollerith information or 
blanks. The first information on each card must be the statement 
name, followed by a comma. 


e.g. ^RUN, 



17«2 sequence card 


I mmm 
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The sequence statement assigns a number (j) to the job which it 
precedes, j must lie between 1 and 999* This card is normally supplied 
by the operating staff . 

An E0F must precede each SEQUENCE statement except the first on 

input. 


When a SEQUENCE statement is detected, the statement is typed out 
on the console typewriter, and listed on the standard output unit. SC0PE 
writes an E^P on the standard output tape (when tape is being used), and 
on the punch tape (if assigned), and releases all programmer units held 
from the last job. 

SC0PE also closes off the last job’s accounting, and opens a new 
accounting record for the k^w job. 

If the sequence card is not followed by a J^B card, the job is 
terminated, and SCpPE searches forward until it finds an E^P. The 
following statement must be a SEQUENCE, ENDREEL or ENBSC^PE. If it is a 
SEQUENCE followed by a J0B card, SC0PE proceeds normally. 

After SEQUENCE is read, SC0PE pauses for comments from operator to 
be typed in on the console typewriter. These enable the operator to spec¬ 
ify the services for program execution (e.g. special EQUIP statements),. 

This is the only opportunity the operator has to enter such statements. 

Note : If the column following ”j” contains a comma, comments may 
follow. 


Example : 


^SEQT]ENCE,027, 


COMMENT 




17 >3 JOB CARD 
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The symbols used in the statement are interpreted as follows: 

0 charge number, 0-8 characters 

i programmer identification, 0-4 characters 

t time limit in minutes for the entire job, 
including all operator setting up, idle 
time, etc• 

NS indicates a single non stacked job. If 
NS is specified, NP is implied also. 

All system units are rewound and unloaded, 
making all l/O units available to the 
programmer. 

NP Suppresses system l/O protection for 
stacked job. 

ND Suppresses the normal post execution dump 
in octal of the non system part of memory 
should abnormal termination of the job 
occur. 

The c, i, and t fields are mandatory. If a field is blank, the 
comma showing this must appear. 

7 

©•g* ^J0B,c,,t 

The job card is written on the standard output unit, and also on 
the CT0 (comments to operator) if the job is part of a stack. It must be 
immediately preceded by a SEQUENCE card or the run will be terminated. 







17 > 4 MDSGgjPE STATKMRNT 
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This indicates that a SC0PE run is to he terminated. On the 
standard input unit, it should follow the E0P terminating the last in 
the stack. This card is normally supplied hy the operations staff . 


The card is listed on the CT0 unit and on JZiUT, and the standard 
input unit is unloaded, if magnetic tape. 


The library tape is rewound, and the accounting file is closed 

off. 


A double Ej^F and one BCD word, consisting of are written 

on the standard output tape (when tape is used), which is then unloaded. 
If the punch tape is assigned, it is treated in the same way. 


When all action is completed, the computer stops. 



17.5 ENDREEL STATEMENT 
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The statement terminates a reel of magnetic tape 
containing a job stack. (Normally it will be placed in a card 
job stack by the operations staff during card to tape operations 
preparing a tape for use as a standard input tape.) 


SCJZiPE requires an E0F both immediately before and after 

ENDREEL. 


When the statement is detected, SC0PE prints a message on 
the CT0 unit requesting the operator to moimt the next reel of 
input, and halts the computer until the operator takes the action. 




17.6 CT0 3TATBMBHT 


mmm 
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The programmer may provide instructions o? messages to 
the operator. The message is punched in Hollerith. 

Examples ; ^CTj^J,PLEASE TAPE TW0, 

7 

^CT^.SNAP DUMPS WILL jZSCCUR. 

7 

The message is printed on the CT0, and also listed on 
^UT. CT0 cards may he placed in the deck where SC0PE control 
cards may appear, except as follows: 

(i) Before or after SEQUENCE, ENBSCJZiPE 
or ENDREEL. 

(ii) After Cj^fMPASS or FORTRAN. 

(iii) Between RUN and last data card. 




17.7 REWIND STATEMENT 
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The magnetic tapes specified are rewoxmd to load point. 

U is the logical unit number, and may be 1 throii^ 57 or 63. The 
statement is copied onto the standard output \mit, and on the 
CT0 unit. 


If U is not 1-57,63 or not a magnetic tape unit, the 
request is ignored for that unit, but the rest of the units on 
the card are processed. 


Example; 


Remind,21,42,01,55 




17.8 m^AD STATEMEHT 
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The Logical units, U ( 1 - 57 ), may be mloaded by the 
programmer* The statement acts similarly to the REWIND, except 
that the unit is unloaded after rewinding. 

Example ; ^OTI^AD,21,42,01 ,55 








17.9 EQUIP. STATEMENTS 
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Where X = the logical imit number 

d = a declaration about the unit. 

17> 9 <1 Hardware definition 

^EQUIP,X^=hh^ ,X2=hh2,.etc. 

hh is a hardware type mnemonic 
X is a L.U.N. 

Mnemonic Type 


MT 

Magnetic Tape 

CR 

Card Reader 

PR 

Printer 

CP 

Card Punch 

TY 

Console typewriter 

PT 

Paper tape station 

DP 

Disk Pack 


SC0PE assigns the LUN to an available equipment of the 
specified type. 

If no equipment is available, a diagnostic is given, and 
the job is terminated. 

7 

Examples : ^EQUIP,51=MP 

^EQUIP,51=MT,43=PR,26=PT 

7 


17«9»2 Equating Logical Units 

Logical units are equated by this statement 

JeQUIP,X^=X2 

A system unit (57-63) may not be specified on the left 
hand side of the statement. If it is, the job is terminated. 

7 

'EQUIP,43=60 is permissable 

7 

^EQUIP,60-43 is illegal 


Examples ; 

but 


^EQUIP,22-m' ) 
^EQUIP,23=22 I 


Here both LOTS 22 and 23 will 
reference the seime magnetic tape. 






17*9*3 Physical Unit Assignment 


c = channel number (0-7)) prefixed by C 
e = equipment number (controller), prefixed by E 
uu = unit number (device), prefixed by U 
Example! 

^EQUIP,15=MTC0E2U03 

It is possible to omit some parameters in the statement. 
The following table sets out permissable combinations. 


hh 

c 

E 

U 


c 

e 

uu 

X 




X 

X 



X 

X 

X 


X 

X 

X 

X 


X 

X 

X 


X 

X 



Use of non-existant c, e or uu, will cause a diagnostic 
and termination of the job. 

Example ; 

Assign PUN (LUN 15) and LGO (Load and Go, 

56) to the physical unit on channel 0, 
Equipment 1, and unit 7. 

Answer ; 

^EQTJIP, 15=MTC0E1U07 
^EQUIP,56=15 

or ^EQUIP,15=MTC0E1U07,56=15 













17.10 TRANSFER STATEMENT 
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U = Magnetic Tape Unit, 
defined as 1-56, 
or undefined. 


Description : SCj^PE transfers all the information following 
the XPER statement from the Standard input 
unit (INP) to the magnetic tape LUN U, 

■until another SC0PE statement is enco-untered. 


Example : 


The records must be binary records and they are 
written on LUN U in odd parity. When the next 
SCOPE statement is found, an EOF is written on the 
tape, and SCOPE then backspaces over the EOF. 


Uses : 
(i) 


Programmer binary data cards* may be transferred 
from INP to a magnetic tape unit. A 
card with a 7 punch in column 1 is suffic¬ 
ient to terminate the XFER operation. 


(ii) Binary object subprograms may similarly be 
stored on suiother magnetic tape for future 
use* The unit must be rewound before the 
L^AD operation if it is a programmer or 
scratch unit. 


^XFER,03 


* 

Binary Data 


7 

9 

7 

The data is written on unit 3? when the ' card 
is found, SCpPE writes E^P and backspaces over 
it. 


*Data cards must be binary data cards where 

column 1 has a ^ punch plus at least one punch 

in the + - 0 1 2 or 3 position. The data used is 
usually a subprogram binary deck. 



17.11 LOAD STATEMENT 


mmm 
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lL0AD,U,, 






(U^, and are Mag. tape imits, previously 
defined by EQUIP statements as LUN 1-56- If 
omitted, SC0PE will try to load from the INP 
unit 60) 

Description : Not more than 3 \niits can be specified, and the 
loading is done in the order indicated. Unit U^ 
will be loaded until an EJZSP is found. Then U^ is 
loaded until E0P, and finally U^ is loaded. If 
there are 3 parts on one unit, each terminated by 
an E0P, the unit number can be repeated: 

^L(2AD,23,23,23 

When the units designated have been loaded, the 
Standard input unit is examined to see if binary 
object subprograms follow the L0AD card. 

NOTE : If the LG^ unit is being used, the L0AD 

card must be of the form: 

5l0AD,56 

The L^AD statement calls the loader to load binary 
subprograms into memory from programmer units, 
scratch units, LG^ or INP. Only one L^AD statement 
may appear in a run. 

If 56 (LG0) is specified, it will first be rewound 
by SC0PE. Other units must be rewound by rewind 
statements before loading is attempted. 

Example : 

^L0AD,56,3,25 

LG0 is rewound by SC^PE and loaded until E0P is 
found. Units 3 and 25 are then loaded to Ej^P 
marks. 

NOTE : If only binary object programs are to be 

loaded (on INP), no L0AD card is necessary. 

Example : 

^J^B,11121156,404,2 

Binary object deck 

^ROT.l 

ll 





17>12 COMPASS LIBRARY GALLING STATEMENT 


mmm 
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Description : The Cp^MPASS libraiy program is called in and 

loaded into memory, so that source programs in 
COMPASS may he assembled and executed. 

The parameter letters are free field, and may 
thus appear in any order. Each parameter must 
start with the character shown. 

I = 3UPIIT (the source subprogram input unit) 

Specified as I = u, when u = LOT, when a soiirce 
subprogram is to be loaded from a unit other than INF. 

If the I parameter is absent, input is assumed to be 
from unit 60 - INP. 

Example : 

^EQUIP,UT-23 

7 


^C0MPASS,I=23,etc. 
P - PmiCH-UNIT 


Specified as P = u, where the pmch unit is to be 
assigned to an output device. 

If P only occurs, punching is on the binary punch 
vxilt (pot) - unit 62. 

If the parameter is absent, no binary output is 
produced. 


X = EXECUTE (X = u) 

Assigns the Load-Go unit (LGj2^) to logical unit U, 
which must have been previously defined as a MT 
unit. 

If absent, no LG0 tape will be produced, and the 
program will be assembled and listed only. 

If only X appears, output will be put on the 
standard LGj^ unit (56)* 

L = LIST OPTION (L » u) 

Output is listed on unit u, which must have been 
previously defined. 

If L only appears, listing will be done on the OUT 
unit (61). 

If the parameter is absent, no listing of the 
program is given. 




17.12 (cont.) 


R = REFERENCE 


When R appears, a symbol reference list is produced 
on the assembly listing. This is an alphabetic list 
of all symbols used in the program, with the address, 
or the value, of the symbol shown. The symbol list 
appears immediately following the listing of the 
assembled prog 3 ?am. 


Example ; 


A 

77777 


F00013 


ABNORMAL 


EXTERNAL P00001 


B 

00020 


P00013 


JOHN 

P00002 


P00011 


NAME 

P00011 


P00013 


X 

00057 


P00012 

P00013 

SYMBOLS NOT REPERENCEB 




ABLE 

P00013 

LOG 

POOOO 7 START 

POOOOO 


Note that X is referenced at two different locations in 
the program (12 and 13 )* 

Character addresses are shown as follows: 

CAN P001 66 0 

BILL POOI 56 1 

17-Bit non-relocatable symbols are shown 
T0M 00076 2 



17.13 RUN STATEMENT 
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t = execution time in minutes 

May be in the range 0 through 999 • 

The time is not used by SC0PE, but is entered in the 
installation accounting file. 

If not specified, maximum time is assumed. 

NM « NO MEMORY M4P 

If NM appears, it suppresses the memory map that would 
otherwise be written on ^UT, before program is executed. 
(All al)solute memory allocations are given in the map). 

Examples ; 

(i) ^ROT,2 

(the execution time is assumed to be two minutes. 
The memory map will appear on ^UT.) 

(ii) ^rot, 727 ,nm 

(the execution time is assiimed to be 72 ? minutes, 
and no memory map will appear on OUT). 

(iii) ^RDir 

(maximum execution time is assumed. Map will be 
printed). 

(iv) ^m,,m 

(maximum execution time assumed, and no map will 
be listed on 0UT). 



17.14 DIAGRAMMATIC DECK 

gSEQUENCE,001 

gJ0B,32OO,ST0RMA.,lO 

gEQUIP,56=MT 

gF0RTRAN,(Parameters) 

PR0GRAM MMN 
« 

GALL SmRT 

« 

# 

* 

END 

FINIS 

^G0MPASS,( Parameters) 
IDENT rvf0 

ENTRY START 

START UJP ** 


END 

FINIS 

9L0AD,56 

JrUN,5 

data deck 

gg (End-of-File Card) 

gENDSC0PE 


y F0RTRAN Main Program 


J 




> C0MPASS Subprogram 


77 

88 
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Location Symbols 

18.1.2 

Octal Corrections 

18.1.3 

Relocation Factors 

18.1.4 

Error Indicators 

SNAP DUMPS 

18.2.1 

Errors 

18.2.2 

Location 

18.2.3 

First and Last Word Addresses 

18.2.4 

Mode 

18.2.5 

Identification 

18.2.6 

Note 

18.2.7 

Examp 1 e 

18.2.8 

Rules for Using SNAP 


18.3 OTHER DEBUGGING AIDS 

18.3.1 Memory Map 

18.3.2 Abnormal Termination Dump 

18.4 COMPASS ERROR CODES 
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18.1 giCTAL CORRECTION CARDS 


,location,octal correction,-,octal correction. 

Description : Octal corrections may be made to binary object 

subprograms after loading, using this instruction. 

The parameters are free field. 

If a period is used to terminate the card, comments 
may follow it. 

The statement may be used to - 

(i) define corrections 

(ii) enter corrections 

(iii) enter additions to a subprogram by 
establishing a progrsuii extension 
area after the subprogram area. 



18.1.1 Location Symbols 
(i) (Program name) k 

Corrections on this card are loaded beginning with relative 
address "k" in the named subprogram. The subprogram name 
must appear in parentheses. 

Examples : 

^CC, (test ) 15,01000000 

^CC,(BirFFIN)l07,20 


Example of use: 



IDENT 

TW0 


ENTRY 

START 

0 START 

UJP 

** 

10 

ENA 

20B 


END 


To change EHA 

20B 

to EHA 


^CC, (TWJZI) 10,14600030 

(ii) Data Area Corrections 
Dk 

Corrections are loaded beginning with location "k” in the 
Data area. 


^CC,D70,14000000 


Example : 




(cont,) 



(a) First occurrence: 

Defines a program extension area of length k words. 
Corrections on this card are ignored. 

(h) Subsequent occurrences: 

Corrections are loaded beginning at location k 
of the program extension area. 

Example : ^CC,X30 

^jzlcc, X3, 14000010,14000250 

(iv) Continuation Cards 
+k 

Increment k locations from the last location plus ^, corrected 
by the previous 0CG card, k must be octal* 

^cc, (test ) 136,00000100 

^CC,+5,14000600 

Location 1 36 in Subprogram TEST, and location 144 in. TEST 
are changed. 


18.1.2 Octal Corrections 

(i) Corrections may be of up to 8 digits, and are in the form of 
machine instructions. 

(ii) Each correction is separated from the preceding correction by 
a comma. 

(iii) Leading zeros may be omitted. Each value is stored right 
justified with zero fill, in successive computer words. 

(iv) Locations may be omitted for correction by using commas to 
indicate the omissions - 

e.g. ^CC,(TEST)10, 140 ,, 162,,10014100 

Location 10 is altered to 14 O 

11 is unchanged 

12 is altered to 162 

13 is unchanged 

14 is altered to IOO 141 OO 


18. 1.3 Relocation Factors 

(i) none given - the quantity specified is absolute, 

(ii) (subprogram name) - the address field of the correction is 



18«1.3 (cont,) 


relative to the subprogram's first location. 

(iii) ])ata area - D 

Relocate the word address portion of the 
Octal correction relative to the D4TA area. 

(iv) Common Area - C 

Relocate the word address portion of the 
Octal correction relative to the 
area. 

(v) Program Extension Area - X 

Relocate relative to Prog. Ext. Area. 

(vi) Last subprogram area referred to - * 

Relocate relative to the last subprogram 
named in this or a p 2 ?eceding jZJcC or SNAP 
statement. 

Example; ^CC,(TW;^)30,20000040(TW^) 

Correction made to location 30 in subprogram 
with the address part of the correction 
relocated by the factor by which TW 0 itself 
is relocated. 

(i.e., if subprogram TW0 itself is relocated 
by 1000, the actual correction loaded would 
be 2001040 ). 

Note ; The above example could also have 
been written; 

^OCG, (TWJZ!) 30 , 20000040 * 


18 . 1.4 Error Indicators 

Errors in 0CC cards prevent execution of the program. 

If the extension area is incorrectly defined, the following message 
is printed on 0 UT: 

***Xnnn 

where nnn is the 3 -digit octal length of the 
SC0PE defined extension area. 

The format for all other errors is; 

*mn COL nn 

where mn = error mnemonic 

nn = column number on the card. 



18.1.4 (cont.) 


The following table sets out the error mnemonics used. 


Mnemonic 

Meaning 

m 

Program name 

BS 

Common or data storage is 
undefined and referenced 

AD 

Address or location field begins 
with an illegal character 

8F 

Octal field contains a non- 
octal character 

XA 

Program extension area error 

WR 

Wrap around of location field 
address - exceeds core size 

m 

Antecedent reference to a 
program or loading address 

RL 

Relocation factor error 

















18.2 SNAP DUMPS 


SC^PE provides selective memory dumps during execution, using this 
statement. 


qSNAP,( parameters) 

7 

The statement must appear after the program is loaded and before 
the RM card is encoimtered. 

The dump is carried out by the library routine SNAPSHOT, which must 
be defined in the program as an external , (if it is not declared 
as external, the routine is not loaded into storage at load time. 

A diagnostic of this is given on the 0UT listing as fellows: 

Nj^SD 

RUN ABORTED 
The job is terminated.) 

Snap statement parameters define 

(a) Where the dump is to be taken 

i.e. when execution reaches a predetermined 
point, the dump is taken. 

(b) The area to be dumped. 

(c) The format of the dump. 

The SNAP statement is of the following form: 

7 

'SNAP,location,beginning address,ending address,mode, 
^ identification,comments. 


Each parameter is separated by commas. 

Program names are always enclosed in parentheses. 


18.2.1 Errors 

If there is an error in any subfield, the following diagnostic is 
»’en. 


*mn, 

COL 

nn 


mn a 

error mnemonic 


nn a 

the card column number, in which the 
error occurs. 


The error mnemonics are set out in the table on the following page. 



18>2>1 (cont,) 


Mnemonic 

Meaning 

PN 

Program name 

BS 

Common or data storage is 
undefined 

AD 

Address or location field begins 
with illegal character 

8P 

Octal field contains a non-octal 
character 

XA 

Program extension area is 
undefined or too small 

m 

Location field address wrap 
around - exceeds core size 

OV 

Overflow of memory will recur if 
this SNAP is loaded 

IM 

Illegal mode 

JXix 

Rarige to be snapped has FWA 
greater than LWA 


Fnen an error occurs, the SNAP statement is ignored, and execution 
continues as if no SNAP statement had been given. 


16.2.2 Location 

(i) (Subprogram name) k 

Replace location k in the subprogram with a RTJ to SNAP 
calling sequence. 

(ii) Program extension area - Xk 

Replace location k in the P.EXT area by a RTJ to SNAP 
calling sequence. 

(iii) Data area - Dk 

Replace statement k in the DATA area by a RTJ to the 
SNAP calling sequence. 


1 8.2.3 First and Last Word Addresses 

The ending address must always be greater than the beginning 
address, or the SNAP statement is ignored. 

The address can be 

(i) Dk - dump begins or ends with word k in the DATA area, 
(ii) Ck - dump begins or ends with word k in the C0MMj0N area. 


























18,2,3 (contO 


(iii) Xk - dump begins or ends with word k in the Program 
Extension Area, 

(iv) (Subprogram name) k - dump begins or ends with the 
location k in the specified subprogram. 

(v) *k - dump begins with the location k in the last named 
subprogram in a preceding 0CC or SNAP statement. 


18 , 2,4 Mode 

The dump may be in one of 3 formats, and may include the Register 
file or not, as specified. 

0 = octal 

C = 6-Bit Characters 
P = Floating point 

If the register file is to be included, R is used. Thus ^R 
will give the diimp printed out in 0 CTAL, plus the register file 
contents. 


18 . 2,3 Identification 


0 to 4 BCD characters will be printed out on the SNAP output to 
identify the diomp. (Used if several dumps are to be made). 


18 . 2.6 Note 


If the location specified is in a loop, the contents of the area 
will be dumped out each time the location is encountered in the 
loop. 


18.2.7 Examp 1 e 

Dximp after the execution of the 5th instruction of subprogram SUBl 
(assuming the first location of the subprogram is the entry point 
and is entered by a RTJ). Dump from location 441 in SUBl to location 
465 in SUBl in OCTAL, with the Register File also, and identify the 
dump as 0NE. 

Answer: ^SNAP,(SUB1)6,*441,*465,0R,0NE 


*441 could also be written (SUB1)441 



18,2»8 Rules for Using SNAP 

(1) 3X)K*T specify SNAP for an instruction using more than one word, 

e.g. SHOE 
SRCN 
MOVE 

( 2 ) DON’T SNAP Jumps or tests, e.g., AQJ,EQ. - The Jimips will 

not he executed correctly. 

( 3 ) DON’T SNAP indirectly add,ressed instructions. 

( 4 ) DON’T SNAP instructions which will be modified by program 

execution. 

( 5 ) AVOID using SNAP instruction in a loop. 

(6) DON’T modify the location at which the SNAP occurs by an 

000 statement. 

( 7 ) DON’T specify SNAP for the following instructions: 

MSQ 

MTH 

SSH 

CPR 

CON 

SEL 

EXS 

INS 

INTS 

PADS 

(8) DON’T specify SNAP for any SKIP Instruction 

e.g. ISI, ASE, QSG, etc. 

( 9 ) DON’T specify SNA? for INPUT/^UTPITT instructions. 



16 .3 OTHER 33EBI3GGINa AIDS 


18 >3*1 Memory Map 

The programmer may seciire a map of memory allocated 
to a loaded program at the time the run card is encountered. This 
map may be suppressed by a parameter of the RUN control statement 

(nm). 

The map contains the following information: 

(1) Absolute address of the first location in each 
subprogram loaded. 

( 2 ) All entry point symbols and their absolute 
addresses. 

( 3 ) The absolute addresses of the first and last 
locations in the common area. 

( 4 ) The absolute address of the first location in the 
data area. 

( 5 ) The absolute address of the first location in the 
program extension area. 


18.3>2 Abnormal Termination Dump 

If a job is terminated abnormally, a post execution 
dump of all the non system part of memory is written on the 
standard output unit, unless the programmer has specified in the 
job card that it be suppressed (ND parameter). 

The dump consists of the console conditions, the 
register file, and all the non-system part of memory. 

Should the contents of words making up a line of 
print be exactly the same as both the last word on the preceding 
line, and the first word on the following line, the line is not 
printed, and the word **GAP** appears instead. 

e.g. If all the locations between 10010 and 10017 are 
the same as both 1000? and 10020, the line will 
not be printed, and GAP will indicate the omission. 



18.4 CgiMPASS ERROR CODES 


A Format error in address field. 


G Attempt to assemble information into 

(instructions are processed as if a PEG was encomtered.) 


D Doubly defined symbol. 

(The first time the symbol is used it is legal, and no 
flag is issued. Subsequent errors are flagged, and the 
instructions using the symbol are assembled as if no 
symbol occurred.) 


P Pull symbol table. 

(All P flagged symbols are undefined, and reference to 
them in address fields of other instructions will 
produce U errors.) 


L Location field error. 


M Modifier error. 


0 Operation code error. (The field is assembled as zeros.) 


II Undefined symbol. 


T Truncation error. 

(a symbol defined as a 17 -bit character address is used 
in a subfield of only 15 bits. The 2 least significant 
bits are lost in truncation, and the flag indicates this 
loss.) 
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19. CgiMPASS ASSEMBLY OP CONSTANTS 


Constants may be 

(i) stated as octal, decimal or character in the source 
language. 

(ii) single, double or variable precision. 

(iii) fixed or floating point format. 

(iv) placed into bit positions of variable length fields. 

19 >1 giCTAL CONSTANT PSEUDO INSTRUCTIONS 

iijnCN ^ __ 

L,. i. ■■ 7 T*rrF*?<«i 


Description : The instruction expresses constamts as signed or unsigned 
octal constants. The octal integer may consist of 8 or 
less digits. 

As many constants as can be contained on a card may be 
expressed in the address field, separated by commas. 

No blanks may appear between constants. The field 
terminates at the first blank or at Column 73* 


The octal constants are assembled, right justified, in 
consecutive locations- The symbol in the location field 
is the 15 bit word address of the first constant in the 
field. 


Example : 


CVTABLE jZfCT -17,32,12345670,5742,-361 


CVTABLE 



Binary Scale factor : 


An optional binary scale factor may be stated by suffixing 
the constants by B, and expressing the scale factor as a 
signed or unsigned decimal integer'of not more than 2 digits. 
The magnitude of the constant after scaling must be less than 
24 

2 . The scaling factor is used to save space in coding 

e*g. CVTABLE 0CT 200000 could be written as 

CVTABLE j^CT 2B15 

Examples : (i) CVTABLE 0CT 72B2 

72 = 111 010 in binary 

= 111 010 00 scaled by 2 (shift binary point 

2 places right) 

= 11 101 000 regrouped 
= 35 
(CVTABLE) = 


0 


0000 0350 





19.1 (cont.) 


(ii) I^C f^CT 36B3,4B12,270B-2 
36 - 011 llOg 

« 011 110 000 (scaled) 

- 3 6 0q 

4 » lOOg 

- 100 000 000 000 OOOg (scaled) 

- 40000g 

270 - 010 111 OOOg 

= 010 111 Og (scaled - 2) 

= 56g 


LjZSc 


(iii) NDIIBEE 
UMBER 


0000 0360 
0000 4000 
0000 0056 


jZJCT 2416,311B16,3417B-8,-372 


0000 2416 
6220 0000 
0000 0007 
7777 7405 


Note : In negative scaling, digits are discarded from the right. 

If the niamber after scaling is greater than 22^-1, the field 
is set to zero and the A flag is set. 

Example : jJCT 6666B20 

Assembled as A = 00000000 





19,2 DECIMAL CONSTANTS, FIXED POINT 


imim I _ 

.., 


Description : The instruction expresses constants as single precision 

fixed point binary constants. The constant may consist of 
a sign, and not more than 7 digits, with a magnitude of 
23 

less than 2 . The symbol in the location field is the 

address of the first constant in the field. The address 
field may contain as many constants separated by commas 
as the card may contain. The field terminates at first 
blank or Colxjmn 73 * 


Example : 



1 , 82,-38 


(I22g = 82^o) 

(-468 = -.38j^q) 


Scaling Factors : 

Both decimal and/or binary scaling factors may be stated 
by suffixing the constant with D and/or B, and 6:^ressing 
the scale factor as signed or unsigned decimal integers. 
The magnitude of the constant after scaling must be less 

than 2^^. 


Steps in the conversion ; 

(i) Decimal integer is converted to binary, 

23 

The result must be less than 2 . 

Example : 36^^ * 44 q 

* 100 100 

(ii) Binary integer is multiplied or divided by 10 ^, 
where d is the scaling factor. 

23 

The result must be less than 2 
Example ; 36^^ D2 = 36 x 100 

= 44 q X I 44 e 

= 100100 X 001100100 
= 111000 X 010 000 

= 70203 

(iii) Shift the result the number of bits specified by 
the binary scaling factor. 

Negative factor « RIGHT shift 

Positive factor = LEFT shift 

Example ; 

36^8 D2 B2 

36D2 = 111000010000 

- 11100001000000 - 341003 






19.3 DOUBLE PRECISION AND/OR FLOATING POINT CONSTANTS 


DECO ^ j *<^n 


Description : Decimal values may be stored as double precision fixed 

point constants, or as floating point constants. Either 
format requires 48 bits for storage (2 consecutive words). 
Up to 14 decimal digits may be specified, and the value 
of the expression must be less than 247^ 


Decimal and binary scaling factors may be used, as in the 
DEG instmiction. 


The signed 48“t>it result is stored in two consecutive 
computer words. 


Example: 


SYM.TAG DEGD 32,640264 


SYM.TAG 


00 00 00 00 
00 00 00 40 

00 00 00 00 
00 31 00 00 


64,0 - ™e 

= 10^ = 100 - 144 „ 

o 

100g X 144 q = 1 44 OOq 

= 001100100000000 
= 11001000 000 000 000 
= 3 1 0 0 0 0 


Floating Point Constants : 


1. Floating point constants contain a decimal point. 

Examples: 300.246 

2.040117321 

.111 

1765122.1 

2. They are stored in two consecutive 24 bit words as a 12 bit 
characteristic (exponent) and a 36 -bit mantissa (coefficient). 


WORD 1 

BIASED EXP 

COEFF 

WORD 2 

COEFF 


3- A floating point constant may contain not more than 14 decimal 
digits and a decimal point. 

4 . Binary scaling is not permitted, but decimal scaling is. 

5 . The result after scaling must not exceed the capacity of the 
hardware (l0^^^^) 

Example : SYM.TAG 15EGD 17643*463214 

17643 * 4632144,0 

= 42353.35512463 
= .4235335512463 X 2’' 5 


2017 

4235 


1246 









19.4 BCD CONSTANTS 


__ _ 

^ i L i !.* J ; .1. ; JL ' 



Description ; Characters are assembled for store into consecutive computer 
words as 6 -bit BCD character codes, in addressable character 
positions. The code used is internal BCD. 

The decimal integer n * the number of words to be used. 

The maximum number of characters to be stored would be 4 x n. 

The instruction reserves ”n** words of storage, and any 
character positions not filled from the instruction are 
filled with blanks. 

Characters specified in excess of (4 x n) are treated as 
comments. 

The symbol in the location field is the 15-bit address 
of the first word. 


Example ; 


(i) ERR^RMSG BCD 3,1/0 ERR0R 


ERR0RMSG 


I 

/ 

0 

60 

E 

R 

R 

0 

R 

60 

60 

60 


3 words reserved, 
therefore the maximum 
number of characters is 
12. Here only 9 appear 
before the end of message, 
so all are included. 


(ii) ERR0EMSG BCD 2,1/0 ERS0R 


ERS0RI'iSG 


I 

/ 

/ 


60 

E 

R 

R 

0 


2 words reserved, 
therefore the maximum 
number of characters is 8. 
Here 9 appear, therefore 
the last one is treated as 
a comment and discarded. 




19.5 BCD CHARACTER CONSTANTS 


' LZkVM __ ^___ 

[”3 . I ^'*>.^^ 1 ' 


Description : Characters are assembled into consecutive character positions 
n signifies the number of character positions to be reserved 

15 

and must be an integer less than 2 Characters in excess 
of n are treated as comments; positions reserved but not 
used are filled with blanks. 

The symbol in the location field is the 17-bit address of 
the first character. 


Storage 

If the line of coding before BSS,C assigns character storage, 
the character string begins in the next available character 
position. If not, it begins with the first character 
position in the first available word. 


If the number of characters specified does not exactly fill 
the last word, the rest of the word is zero filled. However, 
if the next instruction in the program which consumes space 
is a BCD.C instruction, it will fill up the remaining 
character positions in the last word. 


Examples : 


(i) 


MSG BCD,C 


T 

E 

S 

T 

60 

P 

R 

JZ* 

G 

0 

0 

0 


9,TEST PR0G 


(ii) 


MSG BGD,C 


6,TEST PR0G 


T 

E 

S 

T 

60 

P 

0 

0 


(iii) 


MSG BCD,C 
BCD,C 


T 

E 

S 

T 

60 

P 

R 

0 

G 

60 

E 

N 

D 

60 

0 

0 


10,TEST PR0G 
4,END 


(Notes 60 = blank read 

after PR06 above.) 







19.5 (cont.) 


(iv) 


Example of actual listing of assembled BCD and BCD,C 
constants: 


Assembled 

Constants 


Instruction 


31 6l 46 60 

BCD 

2,1/0 ERR0R 

25 51 51 46 

31 6l 46 60 

BCD 

3,1/0 ERR0R 

25 51 51 46 

51 60 60 60 

63 25 62 63 

BCD,C 

9,TEST PR0G 

60 47 51 46 

27 

63 25 62 

BCD,C 

6,TESr PR0G 

63 60 47 

63 

BCD,C 

10,TEST PR0G 

25 62 63 60 

47 51 46 27 

60 

25 45 24 

BCD,C 

4>END 


60 00 00 00 



19.6 VA.RIABLE FIELD CQNSmNTS 


19.6.1 Introduction 


The general form of the instruction is: 

” ~ ■ vF£i ~ M . . .. . , Mil// 


where M = mode indicator 

n = positive decimal integer denoting the nmber of 
bit positions in the variable field specified by 
this subfield. (NOTE: the range of values of n 
varies with the mode M) . 

V = the content of the field. This varies according 
to the mode and is restricted by the declared 
length. 

As many address subfields as may be contained on a single card are allowed. 

Each subfield is terminated by a comma, except the last, which is termin¬ 
ated by a blank. 

Use: 


The instruction is used to enter information in one of the 
following modes into a field of a designated bit-length. 

(i) octal numbers 

(ii) character codes (BCD) 

(iii) relocatable addresses (either word or character addresses) 
or (iv) constants. 

It enables information to be packed into computer words during 
assembly time. 

Packing : 


(i) Values are entered right adjusted in the field, with sign 
extension. 

(ii) Character strings are entered left adjusted, with blank fill. 

e.g. A B X is a character string. 

If entered in a 24-bit character 
VED, it will be entered as: 

21 22 69 60 


Relocation ; 

If relocatable addresses are entered into a field, the 
addresses will be relocated when the assembled subprogram is loaded. 
(The listing will show only the assembled fields.) 


19.6.2 Octal Mode 


vp,rrFS 


n 


indicates the octal mode. 

indicates the number of bit positions in the field. 
It may be in the range 1-24 inclusive. 






19,6>2 (cont>) 


V indicates the octal infoimation to be entered into the field. 

It may be 1-8 octal digits, and may be signed, (if v is 
negative, the filled content is stored in one’s complement 
form). The information is entered right justified in the field, 
zero filled if positive, one-bit filled if negative. 


A binary scale factor , similar to that lased with the OCT pseudo 
instruction, may be specified. 

Example: VFD J^24/24B6 

Assembled as OOOO 24 OO 


(i) 

VFD 

024/30502 




Assembled as 

00030502 

(ii) 

VFD 

024 /-30502 



Assembled as 

77747275 

(iii) 

VFD 

015/30502 




Assembled as 

30502000 


(Unused portions of the word are zero filled) 


Errors: 


If the value v exceeds the field length n^or is not octal, the 
error is flagged and the field is set to zero. (The C0MPASS address 
field error flag A appears on the listing.) 

Example: VFD 015/30502,015/2030502 

Assembled as! 30502000 in word 1, 

word 2 not shown on the listing. 

'*A’* error flag set against the line. 

(Note: the program will not be executed.) 

Note : 

If an error occurs in any field on the card, subsequent fields 
in that card are not listed, although space is reserved for them. 

Example: VFD 01 0 / 1 2 345 >015/24,015/60,024/1021 

Word 1 is set to zero because the field 
is too small. 

Words 2 and 3 are not listed. 

Program listing resumes at word 4 with 
next card. 


19.6.3 Hollerith Mode 


lOCUmJi OPJRATiOK 

m%m fiEiif 


VfP 

Wft/V ^ . . : , 






Here n must be a multiple of 6 to enable storage of Hollerith 
information as 6-bit internal BCD character codes. The address subfield 
terminates with a blank or a comma. If the field is too small for the 
number of characters specified, an error results. 


Exsimple: 

L0C 

VFD 

H 18 /ABC = 21 22 23 00 


L0C 

VFD 

HI 2 /ABC ±8 illegal. (Address 
field flag "A" is set). 




19«6»3 (cont«) 


If the field is longer than the niiraher of oharacters specified, 
the work is blank filled. Characters are stored LEFT justified in the 
field. 


Example s 

LjZSc 

VFD 

H18/AB = 

21 

122^ 

60 

00 


19.6.4 Word Address Arithmetic Mode 


j mkmn 

HDBUESS Um 


VFD An/v 


S :ri j:* j S* J >7 t {«} s’fO} >5 



The address field v may be: 


(i) 

A constant 


(ii) 

A symbol 


(iii) 

An expression 
address field 

formed by the rules of 
arithmetic. 


If the expression yields a relocatable word address, the 
programmer must arrange so that it will be right justified on bit 0 in 
a word, and be contained in 15 bits. If it is not relocatable, the full 
24 bits can be used. 

Examples: (i) AL0C VPD A24/A+3 

If A is a relocatable word address, previously 
defined, then answer must be 15 bits stored Right 
justified in word on bit 0. 

If A is an absolute value, 24 bits can be stored. 

(ii) Using relocatable word address 

VPD 09/O1O,A15/BUFR 

where BUFR is a symbol, address 00002 in the 
program. 

Assembled as 01000002 
(iii) Using non relocatable symbol 


A 

SQU 

77777B 

B 

E(JU 

57B 

C 

EQU 

20B 


VFU 

A21/A-B+C 


Assembled as 777740 in the designated 21 bits. 


19.6.5 Character Address Mode 


1 L8CAI168 

: iOPEIATiOK JBBiFIEIS ASBRISS niL8 


1 J iVFV , , „ Cn/y , . , . 





A minimum of 17 bits is required for character addressing, 
n miist therefore not be less than 17 « 





19,6*5 (cont,) 


If the address is relocatable, the field must be right justified 
on bit 0 in the word. 


Examples: (i) VPD C24/237B 

Assembled as 00000237 

VED C24/237 

Assembled as 00000355 

(ii) Suppose NAME is assembled at location 00025 ^ 
the subprogram, and is a word address. 

VFD C24/NAME 

Assembled as 00000124 

(Note: 124 is the character address of 
word address 25 ) 

(iii) CADR EQU,C 237B 

(5PAD WD 07/04,017/CADR 

CADR : is assembled as a 17-bit character address 

= 000237 

= Word 47> character position 3 
= 000473 on the listing. 

0PAD : is assembled as a 24 -bit word 

- 02000237 

04 is entered right justified in a 7-hit 
field 

« 0000100 

* 000 010 0 

CADR is the 17-hit character address 

000237 

= 00 000 000 010 011 111 


(iv) Suppose TMPC is assembled as character 0 in 
word 20 in the subprogram 

JAC WD 07/4,017/TMPC 

Assembled as 02000100 

(100 is character address of TMPC) 


19»6.6 Example of VFD instruction 


If NAME is located at address 00011 in the assembled program, 
what will be assembled as a result of: 


A 

X 

B 


EQU 77777B 

EQU 57B 

EftU 20B 

WD 012/-737,A21/A-X+B,H24/HA3,A15/NAME+2,H12/B(1 


70 

40 

77 

77 

74 

03 

02 

10 

36 

00 

00 

~ 

22 

50 

00 

00 


Answer; 




INPUT/QUTPUT WITHOUT CIO 


20.1 INPUT/OUTPUT CHARACTERISTICS 

20.1.1 Introduction 

20.1.2 Interface Signals 

20.1.3 System Configuration 

20.1.4 Logical Sequence of Events for Initiating 

INPUT/OUTPUT Operations 

20.2 CONNECT 

20.3 SELECT 

20.4 WORD ADDRESSED INPUT TO STORAGE 

20.5 WORD ADDRESSED OUTPUT FROM STORAGE 

20.6 CHARACTER ADDRESSED INPUT TO STORAGE 

20.7 CHARACTER ADDRESSED OUTPUT FROM STORAGE 

20.8 INPUT/OUTPUT TO AND FROM THE A REGISTER 

20.8.1 Input Character to A 

20.8.2 Input Word to A 

20.8.3 Output Character from A 

20.8.4 Output Word from A 

20.9 SENSING INSTRUCTIONS 

20.9.1 Sense External Status 

20.9.2 Copy External Status and Interrupt Mask Register 

20.9.3 Sense Interrupt 

20.9.4 Sense Internal Status 

20.9.5 Copy Internal Status and Interrupt Mask Register 

20.9.6 Comments on Internal Status and the Interrupt Mask Register 

20.10 CONSOLE TYPEWRITER INPUT/OUTPUT 

20.10.1 General Description 

20.10.2 Operation 

20.10.2.1 Set Tabs, Margins and Spacing 

20.10.2.2 Clear 

20.10.2.3 Status Checking 

20.10.2.4 Type In and Type Load 

20.10.2.5 Type Out and Type Dump 

20.10.3 Typewriter Console Switches and Indi(?ators 

20.10.4 Character Codes 

20.10.5 Input/Output Instructions 

20.10.5.1 Set Console Typewriter Input 

20.10.5.2 Set Console Typewriter Output 

20.10.5.3 Pause Instruction 
(as used with console typewriter instructions) 





20.I INPUT/QUTPUT CHARACTERISTICS 


20.1.1 Introduction 


The Input/Output section of the computer is responsible for 
transferring data to and from the computer and to and from an external 
device. Data is transferred between a 3200 Computer and its associated 
external equipment via a 3206 or 3207 Communication Channel. For 
programming purposes, the eight possible 3206 channels in a system are 
designated by numbers 0 through 7. A 3207 replaces the 3206 type I/O 
channels 2 and 3 in expanded systems. It is programmed as channel 2. 


20.1.2 Interface signals 


Up to eight external equipment controllers may be attached in 
parallel to each 3206 Communication Channel. The following chart shows 
the principal signals which flow between a 3206 and its external equip¬ 
ment. The 12 status lines are active only between the channel and the 
controller to which it has been connected by the CON (77.0) instruction*. 

The eight interrupt lines, designated 0-7, connect to all eight 
controllers attached to a channel. These lines match the Equipment 
Selector switch setting on each controller. For a complete description 
of the I/O interface signals as well as an I/O timing chart, refer to 
the 3000 Series I/O Specification, publication number 60048800. 


3206 or 3207 
Communication 
Channel 


Data Lines (12 for 3206; 24 for 3207) 


Parity Lines (1 for 3206; 2 for 3207) 

Connect 

Function s 

} 

Read ^ 

Write 

Data Signal 

\A _*-- r". - 

luci c t: i vjxeaj. ^ 

Clear External Interrupt 

Channel Busy ^ 

Reply 

^ Reject 

^ End of Record 

. External Parity Error 

, Status Lines (12) 

Interrupt Lines (8) 

Suppress Assembly/Disassembly ^ 

Word Mark . 


External 

Equipment 

Controller 


* The connect instruction selects one of eight controllers which may be 
attached to the channel. 






DISC 

PACK 


CARD 

PUNCH 


LINE 

PRINTER 


MAGNETIC 

TAPES 


CARD 

READER 














20.1.4 Logical Sequence of Events for Initiating INPUT/OUTPUT Operations 


Execute a connect instruction which will indicate the channel, 
controller and unit which is to receive or transmit the data. 

Sense the status of the controller to determine if the unit is available 
and papable of performing the function and/or data transmission (”PRE-.STATUS")* 

Send the appropriate select functions. Select functions 
are used to format the INPUT/OUTPUT device. 

Execute the data transmission instructions. 

At end of operation, sense the status of the controller to determine 

if the function and/or data transmission was successful ,("POST-STATUS" check). 


20.2 CONNECT 


ISCUIOK 

kfEyiiorpsiFSEis imiess nai 


Mv .. ;*,»,•*.... 


1 5 


23 18 17 15 14 12 11 00 


GI 


_ch_ 

- 1 


ch = I/O channel designator, 0-7 
X = 12 bit connect code. Bits 09-11 

select one of eight controllers which 
may be attached to channel ch. Bits 
00-08 select the peripheral units 
connected to the controller. 

Description : This instruction sends a 12-bit connect code along with a 
connect enable to an external equipment controller on I/O 
channel ’ch*. If a Reply is received from the controller 
within 100 usee, the next instruction is read from address 
P + 2. If a Reject is received or there is no response 
within 100 usee, a reject instruction is read from address 
P + 1. If the I/O channel is busy, a reject instruction 
is read immediately from address P -f 1. 

Once the connect is successful (RNI at P + 2) it will re¬ 
main in effect until another connect is attempted on the 
same channel or a clear function is performed. 

Examples ; 


C0N 100IB,2 


This instruction connects controller number 1 and unit 1 
on channel 2. 

The reject instruction coded at P 4- 1 is usually a jump 
back to the connect to cause the computer to wait until 
the connect is successful. 

e•g. C^N 
UJP 


1001B,2 

*-l 





20,2 (contQ 


In the following example, which controllers and units 
will be connected on channel 1 and 2 when the computer 
stops. Assume all connects can be made. 


C0N 

2004B,1 





UJP 

*-l 





C0N 

3004B,2 





UJP 

*-l 





C0N 

5B,1 

Answers: 




UJP 

*-l 

Channel 1 

= Equip 0, 

Unit 

5 

UCS 


Channel 2 

== Equip 3, 

Unit 

4 


20.3 SELECT 


mmm 

1 josifiEifs Him 








23 18 17 15 14 12 11 00 


1 - 

- 


! ^ 


ch = I/O channel designator, 0-7 
X ~ 12-bit function code. Each piece 
of external equipment has a unique 
set of function codes to specify 
operations within that device. 

Refer to the 3000 Series Computer 
Systems Peripheral Equipment Codes 
publication No. 60113400 for a 
complete list of function codes. 

Description ; This instruction sends a 12-bit function code along with 
a function enable to the unit connected to I/O channel 
'ch^. If a Reply is received from the unit within 100 
usee, the next instruction is read from P + 2, If a 
Reject is received or there is no response within 100 usee, 
a reject instruction is read from address P + 1, If the 
I/O channel is busy, a reject instruction is read Immediately 
from address P + 1. 

The following conditions or combination of conditions will 
result in a Reject: 

1) No Unit or Equipment Connected : The referenced device 
is not connected to the system and cannot recognize a 
Function instruction. If no response is received with¬ 
in 100 usee, the Reject signal is generated automatically 
by the I/O channel. 

2) Undefined Code : When the Function code x is not defined 
for the specific device, a Reject may be generated by 
the device. However, in some cases an undefined code 
will cause the device to generate a Reply although no 
operation is performed. (Refer to the reference manual 
for the specific device.) 

3) Equipment or Unit Busy or Not Ready : The device cannot 
perform the operation specified by the function code x 
without damaging the equipment or losing data. For 
example, a Write End of File code is rejected by a tape 
unit if the tape unit is rewinding, 

4) Channel Busy : The selected data channel is currently 
performing a Read or Write operation. 






20,3 (cont.) 

The function codes for magnetic tape and card reader are: 


MAGNETIC TAPE CONTROLLERS 3248 CARD READER CONTROLLER 



FUNCTION CODES 


FUNCTION CODES 

0000 

Release 

0001 

Negate Hollerith to 

0001 

Binary 


Internal BCD Conversion 

0002 

Coded 

0002 

Release Negate Hollerith 

0003 

556 BPI 


to Internal BCD Conversion 

0004 

200 BPI 

0004 

Set Gate Card 

0005 

Clear 

0005 

Clear 

0006 

800 BPI 

0020 

Interrupt on Ready and 

0010 

Rewind 


Busy 

0011 

Rewind Unload 

0021 

Release Interrupt on 

0012 

Backspace 


Ready and Busy 

0013 

Search Forward to 

0022 

Interrupt on End of 


File Mark 


Operation 

0014 

Search Backward to 

0023 

Release Interrupt on 


File Mark 


End of Operation 

0015 

Write File Mark 

0024 

Interrupt on Abnormal 

0016 

Skip Bad Spot 


End of Operation 

0020 

Interrupt on Ready 

0025 

Release Interrupt on 


and Busy 


Abnormal End of Operation 

0021 

Release Interrupt on 

Ready and Busy 



0022 

Interrupt on End of 

Operation 



0023 

Release Interrupt on 

End of Operation 



0024 

Interrupt on Abnormal 

End of Operation 



0025 

Release Interrupt on 

Abnormal End of Operation 



0040 

Clear Reverse Read 



0041 

Set Reverse Read 




Examp1e i 


C0N 

2B,1 

Connects Controller 0 Unit 2 on channel 

UJP 

REJX 


SEL 

103,1 

Rewinds Tape Unit 2 to Load Point 

UJP 

REJX 


SEL 

3B,1 

Sets the Density to 556 bpi 

UJP 

REJX 

SEL 

1B,1 

Sets the Mode to binary 

UJP 

REJX 



UCS 


Exercise: What does the following group of select function codes for Tape Unit 6 

accomplish? 

C0N 6B,0 

UJP REJX 

SEL 6B,0 __ 

UJP REJX 

SEL 13B,0 _ 

UJP REJX 


UCS 



20.4 WORD ADDRESSED INPUT TO STORAGE 


mmn 

j8?£|jim8 JOOiriERS muu flEll 

, ^ : 1 

. 

: i» ; > it 



23 


18 17 16 15 14 


00 



1—: 



^ 1 -. 1 

Lu 


n 


P + 1 


23 21 20 19 18 17 16 15 14 00 


ch 


B = "1" for backward storage 
ch = I/O channel designator, 0=7 
INT = ^'1^' for interrupt upon, completion 
N = ”0” for 12- to 24-bit assembly 
= "1” for no assembly 

m = first word address of I/O data block; 
becomes current address as I/O oper¬ 
ation progresses 

n = last word address of input data block, 
plus one (minus one, for backward 
storage) 


Description ; This instruction transfers a word-addressed data block from¬ 
an external equipment to storage. Transferring 12-bit bytes 
or 24-bit words depends upon the type of I/O channel used. 

The 3206 utilizes 12-bit bytes and the 3207 uses 24-bit words. 

During forward storage and 12- to 24-bit assembly, the first 
byte of a block of data is stored in the upper half of the 
memory location specified by the storage address. Conversely, 
during backward storage, the first byte is stored in the 
lower half of the memory location. 

This instruction is an initiate type instruction, which means 
all the foregoing actions will occur only if the instruction 
executes normally. And RNI will be at PH-3. However, if 
the input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double NOP and 
RNI from P + 2. The instruction at that location is termed 
the ^Reject Instruction». 


Examples ; 


C^N 

1001B,1 

RTJ 

REJX 

SEL 

2B,1 

RTJ 

REJX 

SEL 

3B,1 

RTJ 

REJX 

INPW 

1, INBUFF, INBUFF-f50 

RTJ 

REJX 


This example initiates an Input from tape unit 1, controller 1 
on channel 1. The tape is written in BCD mode at 556 bpi. 





20.4 (cont.l) 


(ii) A block of memory is as shown: 


INEUFF 77777777 
77777777 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 


And the contents of a data card is: 


ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABGDEFGHIJKABC 


What will be the contents of memory as a result of 
the following coding examples? 

C0N 3000B,0 

UJP REJX 

INPW 0,INBUFF,INBUFF+20 

UJP REJX 


G0N 3000B,0 

UJP REJX 

INPW,B 0,INBUFF+19,INBUFF-1 
UJP REJX 


G0N 3000B,0 

UJP REJX 

INPW,N 0, INBUFF, INBUFF4-40 

UJP REJX 


C0N 3000B,0 

UJP REJX 

INPW,B,N 0,INBUFF+39,INBUFF-1 
UJP REJX 




20.4 (cont,2) 


Answers: 


( 1 ) 


( 2 ) 


INBUFF 


21222324 

INBUFF 22334221 

25262730 

31412730 

31414121 

25262324 

22232425 

21224142 

26273031 

30312627 

41422122 

24252223 

23242526 

42213141 

27303141 

27302526 

42212223 

23242122 

24252627 

41423031 

30314142 

26272425 

21222324 

22234221 

25262730 

31412730 

31414221 

25262324 

22232425 

21224142 

26273031 

30312627 

41422122 

24252223 

23242526 

42213141 

27303141 

27302526 

42212223 

23242122 


(3) 


(4) 


INBUFF 


77772122 

INBUFF 77772223 

77772324 

77774221 

77772526 

77773741 

77772730 

77772730 

77773141 

77772526 

77774221 

77772324 

77772223 

77772122 

77772425 

77774142 

miwii 

77773031 

77773031 

77772627 

77774142 

77772425 

lllllYll 

77772223 

77772324 

77774221 

77772526 

77773141 

77772730 

77772730 

77773141 

77772526 

77774221 

77772324 

11112123 

77772122 

11112M5 

77774142 

77772627 

77773031 

77773031 

77772627 

llllkXWl 

77772425 

77772122 

77772223 

77772324 

77774221 

77772526 

77773141 

77772730 

77772730 

77773141 

77772526 

77774221 

77772324 

77772223 

77772122 

77772425 

77774142 

77772627 

77773031 

77773031 

77772627 

77774342 

77772425 

77772122 

77772223 

77772324 

77774221 

77772526 

77773141 

77772730 

77772730 

77773141 

77772526 

77774221 

77772324 

77772223 

77772122 



20.5 WORD ADDRESSED OUTPUT FROM STORAGE 


1 IDOUiON 

ifiPEilAIlOK JOOiFiEilS liSOIESS n[l8 

1. 





23 18 17 161514 00 


76 

□ 


23 21 20 19 18 

17 

16 1514 00 

ch ^ B N 

I tNT' 

H __ 


B = ”1” for backward storage 

ch = I/O channel designator 

INT = for interrupt upon completion 

N = ”0” for 24- to 12 bit disassembly 

= ^’1'^ for straight 24-bit (no disassembly) 
data transfer 

m = first word address of I/O data block; 
ecomes current address as I/O 
operation progresses 
n = last word address of output data 
block, plus one (minus one, for 
backward output) 


Description : This instruction transfers a word-addressed block of data 
consisting of 12-bit bytes or 24-bit words, from storage 
to an external equipment. 

With no disassembly, 12 or 24-bit transfer capability depends 
upon whether a 3206 or 3207 I/O channel is.used. If an 
attempt is made to send a 24-bit word over a 3206 I/O channel, 
the upper byte will be lost. 

This instruction is an initiate type instruction, which means 
all the foregoing actions will occur only if the instruction 
executes normally. And RNI will be at P + 3. However, if 
the input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double NOP and 
RNI from P + 2. The instruction at that location is termed 
the -Reject Instruction-. 


Examples : 


A block of memory is as shown: 


Numerical Value Alphabetical Representation 


0UTBUFF 


21222324 

25262730 

31414221 

22232425 

26273031 

41422122 

23242526 

27303141 

42212223 

24252627 

30314142 

21222324 

25262730 

31414221 

22232425 

26273031 

U422122 

, '^242526 

27303141 

42212223 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 


I 

J 

K 

A 

B 

G 



F 

G 

H 

X 

J 

K 

A 

B 

C 





20.5 (cont.) 


What will be printed on the line printer as a result of 
the following coding examples? 


(1) 

C0N 

5000B,1 


UJP 

REJX 


0UTW 

1,0UTBUFF,0UTBUFF+2O 


UJP 

REJX 


(2) 

C0N 

5000B,1 


UJP 

REJX 


0UTW,B 

1,0UTBUFF+19,0UTBUFF-1 


UJP 

REJX 


(3) 

C0N 

5000B,1 


UJP 

REJX 


0UTW,N 

1,0UTBUFF,0UTBUFF+2O 


UJP 

REJX 


(4) 

C0N 

5000B,1 


UJP 

REJX 


0UTW,B,N 

1,0UTBUFF+19,0UTBUFF-1 


UJP 

REJX 


Answers : 

( 1 ) 

ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJBCABC 

( 2 ) 

BCKAIJGHEFCDABJKHIFGDEBCKAIJGHEFCDABJKHIFGDEBCKAIJGHEFCDABJKHIFGDEBCKAIJGHEFCDAB 


(3) 

CDGHKADEHIABEFIJACFGJKCDGHKADEHIABEFIJBC 

(4) 


BCIJEFABHIDEKAGHCDJKFGBCIJEFABHIDEKAOICD 



20.6 CHARACTER ADDRESSED INPUT TO STORAGE 


lNPC,INr^B,H ch^rr* 



23 



18 

17 

16 

00 

P 1 

73 

0 

s 


23 21 

20 

19 

18 

17 

16 

00 

+ 1 1 

G3 

8 

0 

0 

iNT 

r 


B = ”1^1 for backward storage 
ch = I/O channel designator, 0-3 
H = "0” for 6- to 24-bit assembly 
= ”1" for 12- to 24-bit assembly 
INT = for interrupt upon completion 

r = first character address of I/O data block; 
becomes current address as I/O operation 
progresses 

s = last character address of input data 
block, plus one (minus one, for back¬ 
ward storage) 

Description ; This instruction transfers a character-address block of 

data, consisting of 6-bit characters or 12-bit bytes, from 
an external equipment to storage. During 12- to 24-bit 
assembly, the lowest bit of each character address is 
forced to remain a "O'* in register OX. This ensures that 
assembled bytes are in either the upper or the lower half 
of the word being stored. 

This instruction is an initiate type instruction, which means 
all the foregoing actions will occur only if the instruction 
executes normally. And RNI will be at P + 3. However, if 
the input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double NOP and 
RNI from P 4- 2. The instruction at that location is termed 
the 'Reject Instruction', 


-Examples : 


A block of memory is as sho^vn: 


77/77777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 

77777777 


And the contents of a data card is: 


ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABGDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABC 




20>6 (cont.) 


Answers: 


What will be the contents of memory as a result of the 
following coding examples? 


(1) C0N 
UJP 
INPC 
UJP 


3000B,0 

REJX 

0,INBUFF,INBUFF+80 
REJX 


( 2 ) cm 

UJP 

INPC,B 

UJP 


3000B,0 

REJX 

0,INBUFF+7 9,INBUFF-1 
REJX 


(3) C0N 
UJP 

INPC,H 

UJP 


3000B,0 

REJX 

0, INBUFF, INBUFF-fSO 
REJX 


(4) C0N 
UJP 

rNPC,B,H 

UJP 


3000B,0 

REJX 

0 , INBUFF4-79, INBUFF- 1 
REJX 


( 1 ) 


( 2 ) 


21222324 

25262730 

31414221 

22232425 

26273031 

41422122 

23242526 

27303141 

42212223 

24252627 

30314142 

21222324 

25262730 

31414221 

22232425 

26273031 

41422122 

23242526 

27303141 

42212223 


23222142 

41313027 

26252423 

22214241 

31302726 

25242322 

21424131 

30272625 

24232221 

42413130 

27262524 

23222142 

41313027 

26252423 

22214241 

31302726 

25242322 

21424131 

30272625 

24232221 


(3) 


(4) 


Same as #1 


Same as #2 



20.7 CHARACTER ADDRESSED OUTPUT FROM STORAGE 


P 

P + 1 


Description ; 


Examples : 


4^UTC,IN7^6^H 


23 18 17 16 00 


75 

0 

S 

23 21 20 19 18 

17 

16 00 

ch ^ B H 

INT 

r 


B - "1" for backward storage 
ch - I/O channel designator, 0-3 
H - ”0" for 24- to 6-bit disassembly 
-- for 24- to 12-bit disassembly 
TNT ~ '4’■ for interrupt upon completion 
r “ first character address of I/O data 
block; becomes current address as 
I/O operation progresses 
s ~ last character address of output 
data block, plus one (minus one, 
for backward output) 

This instruction transfers a character-addressed block of 
data, consisting of 6-bit characters or 12-bit bytes, from 
storage to an external equipment. 

This instruction is an initiate type instruction, which means 
all the foregoing actions will occur only if the instruction 
executes normally. And RNI will be at P + 3, However, if 
the input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double NOP and 
RNI from P 4- 2. The instruction at that location is termed 
the ^Reject Instruction^. 


A block of memory is as shown: 


Numerical Value 


Alphabetical Representation 


i^UTBUFF 


21222324 

25262730 

31414221 

22232425 

26273031 

41422122 

23242526 

27303141 

42212223 

24252627 

30314142 

21222324 

25262730 

31414221 

22232425 

26273031 

41422122 

23242526 

27303141 

42212223 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

A 

B 

C 





20,7 (cont>) 


What will be printed on the line printer as a result of the 
following coding examples? 


(1) 

C0N 

5000B,1 


UJP 

REJX 


0UTC 

1,0UTBUFF,0UTBUFF+8O 


UJP 

REJX 

(2) 

C0N 

5000B,1 


UJP 

REJX 


0UTC,B 

1,0UTBUFF+7 9,0UTBUFF-1 


UJP 

REJX 


(3) 

C0N 

5000B,1 


UJP 

REJX 


0UTC,H 

1,0UTBUFF,0UTBUFF+8O 


UJP 

REJX 


(4) 

C0N 

5000B, 1 


UJP 

REJX 


0UTC,B,H 

1,0UTBUFF+79,0UTBUFF-1 


UJP 

REJX 


Answers ; 

( 1 ) 

ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABC 


( 2 ) 

GBAKJIHGFEDCBAKIJHGFEDCBAKJIHGFEDCBAKJIHGFEDCBAKJIHGFEDCBAKJIHGFEDCBAKJIHGFEDCBA 


(3) 


Sames as Number 1 


(4) 


Same as Number 2 



20.8 INPUT/OUTPUT TO AND FROM THE A REGISTER 
20,8.1 Input Character to A 


INAC.INT <h 



P 

P + 1 


23 18 17 16 


00 



Bits 00-16 at 
P and P-Hl should 
be loaded with O’s 


ch = I/O channel designator, 0-7 
INT = "1” for interrupt upon completion 

”0” for do not interrupt upon completion 


Description ; This instruction transfers a 6-bit character from an 

external equipment into the lower 6-bits of the A regis¬ 
ter, A is cleared prior to loading and the upper 18-bits 
remain cleared. 


Main control is stalled until the character is received 
from the external equipment. At that time it resumes 
reading instructions and RNI’s from P + 3. If the 
input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double 
NOP and RNI from P + 2. The instruction at that location 
is termed the ^Reject Instruction». 


Example : 


C0N 

3000B,1 

UJP 

*-l 

INAC 

1 

UJP 



This example inputs 6-bits from controller 3, unit 0 on 
channel 1 into the lower 6-bits of the A register. A 
is cleared prior to loading and the upper 18-bits remain 
cleared. 


20.8,2 Input Word to A 

IMW^INT ck 


P 

P + 1 


23 18 17 16 00 



23 21 20 18 

17 

16 00 

1 

1 0 

0 



Bits 00-16 at 
P and P+1 should 
be loaded with 0*s 


ch = I/O channel designator, 0-7 
INT = ”1" for interrupt upon completion 

”0" for do not interrupt upon completion 

Description: This instruction transfers a 12-bit byte into the lower 
12-bits of A or a 24-bit word into all of A from an 
external equipment. Transferring 12 or 24 bits depends 
upon whether a 3206 or 3207 I/O channel is used. (A) is 
cleared prior to loading and, in the case of a 12-bit 
input, the upper 12 bits remain cleared. 




20 >8.2 (contQ 


Main control is stalled until the byte (word) is received 
from the external equipment. At that time it resumes 
reading instructions and RNI*s from P + 3. If the 
input/output control for the specified channel in Block 
Control is busy, the instruction will act as a double NOP 
and RNI from P + 2. The instruction at that location is 
termed the ^Reject Instruction*. 


Note: Bits 18, 19 and 20 are all zeros when a 3206 data channel is 
used. If the operation with A involves the use of a 3207, 
these bits take on the following significance: 

Bit 20 = always a ^*0” 

Bit 19 = If bit 18 = the state of bit 19 is 

of no consequence. 

If bit 18 = ”0", a in bit 19 signifies 
backward operation. A ^'0" in bit 19 
signifies a forward operation. 

Examples : If the connect code for the card reader is 3000B and a data 

card has ABCD in the first four columns, what will be the 
contents of the A register as a result of the following 
coding examples? Assxme a 3206 data channel. 


C0N 

3000B,0 

UJP 

REJX 

INAW 

0 

UJP 

REJX 


Answer: (A) = 00002122 Also, this is all the information 

that is available from that card. 
Another input to A would cause the 
next card to be read. 


20.8.3 Output Character from A 


mmm 

ongiTiQMJOiiFes Bmm beii 




i 





23 

18 17 

16 

00 

P 1 

75 

□ 




23 21 

20 18 17 

16 

00 

+ 1 1 

1 ch 

0 

I INT 



Bits 00-16 at 
P and P+1 should 
be loaded with 0*s 


ch =1/0 channel designator, 0-7 
INT = ”1^' for interrupt upon completion 

”0’f for do not interrupt upon completion 

Description : This instruction transfers a character from the lower 
6-bits of A to an external equipment. The original 
contents of A are retained. 

After outputting the character, main control proceeds 
immediately and RNI*s at P + 3. Should the input/output 
control for the specified channel in Block Control be 
busy, the instruction will act as a double NOP and RNI 
from P + 2. The instruction at that location is termed 
the ‘Reject Instruction*. 







20^8,3 (cont«) 


Example: 


If the connect code for the external device is 3002B, it is 
connected to channel 4, and it requires a data output of 
21B to perform a certain task, what coding is necessary to 
perform the task. 


Ans; C0N 
UJP 
ENA 
0TAC 
UJP 


3002B,4 

*-l 

21B 

4 

*-2 


The data sent to the external device is 002IB accompanied by 
a suppress assembly/disassembly control signal. This latter 
informs the device to ignore the upper 6 bits and recognize 
the 21B only. 


20.8.4 Outpu t Wor d from A 

^TAW,INT ch 


23 18 17 16 00 

Bits 00-16 at 
P and P+1 should 
be loaded with O^s 


c!: ■ I/O channel designator, 0-7 

INT = ”1" for interrupt upon completion 

”0” for do not interrupt upon completion 

Description : This instruction transfers a 12-bit byte from the lower 12 
bits of A (or all 24-bits of A) to an external equipment 
depending upon the type of I/O channel (3206 or 3207) that 
is used. The contents of A is not disturbed and is retained. 

After outputting the information, main control proceeds 
immediately and RNIfs at P + 3. Should the input/output 
control for the specified channel in Block Control be 
busy, the instruction will act as a double NOP and RNI 
from P + 2, The instruction at that location is termed 
the 'Reject Instruction'. 

Note: Bits 18, 19 and 20 are all zeros when a 3206 data channel is 
used. If the operation with A involves the use of a 3207, 
these bits take on the following significance: 

Bit 20 = always a "0" 

Bit 19 = If bit 18 = ”1", the state of bit 19 is 
of no consequence. 

If bit 18 = ”0", a ”1" in bit 19 signifies 
backward operation. A "0" in bit 19 
signifies a forward operation. 



Example : Assuming a remote typewriter connected to a data channel 

(not to be confused with the console typewriter) has a 
connect code of 5000B and is connected to channel 2, what 
code is necessary to cause that typewriter to perform a 
carriage return tab sequence of operations? The code for 
a carriage return is 77B and for the tab is 75B, 





20,8,4 (cont,) 


C0N 

5000B,2 

UJP 

*-l 

ENA 

7775B 

0TAW 

2 

UJP 

*-2 


The data transmitted to the typewriter is 7775B, 


20.9 SENSING INSTRUCTIONS 


20,9,1 Sense External Status 


mmm . epcgufioM jssihess mmm riii^ 

_3 ^ ^ rV 


23 18 17 15 14 12 11 00 


Gz: 



X 


ch = I/O channel designator, 0-7 
X = external status sensing mask code 


Description ; 


When a peripheral equipment controller is connected to an 


channel by the G0N (77.0) instr 


1 ■nct'T'im — 


tion can sense conditions within that controller. Twelve 
status lines run between each controller and its I/O channel. 
Each line may monitor one condition within the controller, 
and each controller has a unique set of line definitions. 

To sense a specific condition, a "1'’ is placed in the bit 
position of the status sensing mask that corresponds to the 
line number. When this instruction is recognized in a 
program, RNI at address P + 1 if an external status line 
is active when its corresponding mask bits are RNI 

at address P + 2 if no selected line is active. 


Status Codes: Following are the status response codes for magnetic tape and 
card reader: 


MAGNETIC TAPE 
STATUS CODES 

XXXI Ready 

XXX2 Channel and/or 

Read/V/rite Control 
and/or Unit Busy 
XXX4 Write Enabled 
XXIX File Mark Read 
XX2 a At Loadpoint 
XX4X End-of-Tape Read 
XIXX Density 2^ bit** 
X2XX 2l bit** 

** 00 = 200 bpi 

01 = 556 bpi 

10 = 800 bpi 

11 = undefined 
X4XX Lost Data 

IXXX End of Operation 
2XXX Vertical or 
Longitudinal 
Parity Error 

4XXX Reserved by another 
control (multiple 
channel controllers 
only) 



3248 CARD READER 
status CODES 

XXXI 

Readv 

XXX2 

Busy 

XXX4 

Binary Card 

XXIX 

File Card Read 

XX2X 

Fail to Feed, 

Stacker Full or 

Jam 

XX4X 

Input Tray Empty 

XIXX 

Input Tray Empty and 
End of File Switch On 

X2XX 

Ready aai not Busy 
Interrupt Present 

X4XX 

End of Operation 
Interrupt Present 

IXXX 

Abnormal End of 
Operation Interrupt 
Present 

2XXX 

Read Compare, 

Preread Error or 
Illegal Suppress 
Assembly 






20,9.1 (cont.) 


20 


Conmients ; Refer to the 3000 Series Computer Systems Peripheral 

Equipment Codes manual, publication no. 60113400 for a 
complete list of status response codes. 

Example ; The example below accomplishes the following: 

a) Connects the card reader on channel 0, 

b) Checks the status of the card reader. 

If busy it waits until it becomes not busy. 

c) Initiates reading of a card at the card reader and 
transfer of the data read to memory. 

d) Waits until the INPUT is complete. 


C0N 

3000B,0 

CONNECT CARD READER 

UJP 

*-l 


EXS 

2B,0 

SENSE BUSY 

UJP 

*-l 

LOOP IF BUSY' 

INPW 

0,INBUFF,INBUFF+20 

INITIATE INPUT 

UJP 

*-2 


EXS 

2B,0 

SENSE BUSY 

UJP 

*-1 

LOOP UNTIL DONE 


ucs 


9.2 Copy External Status and Interrupt Mask Register 


i immn 

snRiTiexJoetHEis nsfiXESs nm 


... 


23 18 17 15 14 12 11 00 

77 


1 1 

0000 1 


ch = I/O channel designator, 0-7 
Description : This instruction performs the following functions: 

(1) The external status code from I/O channel ch is 
loaded into the lower 12 bits of A. See EXS 
instruction. 

(2) The contents of the Interrupt Mask register are 
loaded into the upper 12 bits of A. 

(3) RNI from address P + 1. 


Examples : If the INTERRUPT MASK REGISTER is 0032^, and the external 

status on channel 1 = 1004g, what will be in A after 
execution of the following instruction? 

C(#PY 1 


Answer: 


(a) 

A is cleared. 


(b) 

Contents of INTERRUPT MASK 
12 bits of A, 

REGISTER put in upper 

(c) 

External status on channel 

1 put in lower 12 bits of A 


(A) = 00321004 






20 


9*3 Sense Interrupt 


1 mmm 



i. 


INTS XfCh 

r 




23 18 17 15 14 12 11 00 


u_ 


H 

X 


ch = I/O channel designator, 0-7 
X = Interrupt sensing mask code 

Description ; Sense for the interrupt conditions listed in the following 
table. RNI from P + 1 if an interrupt line is active 
corresponding to any ”1” bit in the mask. If none of the 
selected lines are active, RNI from P + 2. Internal 
interrupts are cleared as soon as they are sensed. External 
interrupts are cleared by connecting the unit and executing 
one of the SEL functions controlling peripheral interrupts. 


INTERRUPT SENSING MASK BIT ASSIGNMENTS 


Mask Bit 
Position 

Mask Code 

X 

Interrupt Condition Represented 



00 

0001 

I/O Equip # 0 on designated channel 1 


01 

0002 

1 



02 

0004 

2 



03 

0010 

3 

External 

04 

0020 

4 

Interrupts 

05 

0040 

5 



06 

0100 

6 



07 

0200 

7 



08 

0400 

Real-time Clock 



09 

1000 

Exponent Overflow/Underflow (fit pt) 




and BCD Fault 

Internal 

10 

2000 

Arithmetic Overflow 

Interrupts 



and Divide Fault (integer) 

1 


11 

4000 

Search/Move Completion 

J 



Example^-: i) If there Is an interrupt line active on channel 2, which 

instruction will be executed after executing the INTS 
instruction in the following section of code? 


INTS 

4B,2 


UJP 

INTADD 


UJP 

N0INT 


Answer: UJP 

INTADD 

if equip, nr. 4 generated the 



interrupt, else UJP N0INT 

ii) The contents of the A 

register 

= 37777777 and the instruction 

executed is: 



INA 

1 



An arithmetic overflow is generated. What code is necessary 
to sense this fact? 


Answer; INTS 200OB 

UJP overflow-routine (P+1) 

normal non-overflow next instruction (P+2) 

Note; The "ch" designator is required only when sensing 
external interrupts originating on a channel. 







20,9.4 Sense Internal Status 


ni[§ 

lA/S . 


23 18 

17 15 

14 12 

11 00 

77 

[I] 

1 

X 


ch = I/O channel designator, 0-7 
X = Internal Status Sensing Mask Code 

Description : Sense for the internal conditions listed in the following 
table. RNI from P + 1 if an internal condition is present 
corresponding to any ”1’^ bit in the mask. If none of the 
selected conditions are present, RNI from P + 2. Internal 
conditions are cleared as soon as they are sensed, except 
when they are related to channel "ch”. 

INTERNAL STATUS SENSING MASK BIT ASSIGNMENTS 


Mask Bit 
Position 

Mask Code 

X 

Internal Condition Present 



00 

0001 

Parity Error 

- 1 


01 

0002 

Read Active 



02 

0004 

Write Active 

unannei 

03 

0010 

External (controller) Reject 

Cronc ro x 

1 

04 

0020 

Internal (no response) Reject 

-J 

1 

05 

0040 

Illegal Write Main 

Control 

06 

0100 

C0N or C0N and SEL executed 





and channel currently not busy 



07 

0200 

Block Control Interrupt waiting 

Channel 



Write: Buffer complete 

Control 



Read: Buffer complete or 





End of Record at peripheral 

_ 


08 

0400 

Exponent Overflow/Underflow fault 





(fit pt option) 



09 

1000 

Arithmetic Overflow fault 





(main arithmetic section) Main 

Control 

10 

2000 

Divide fault 





(main arithmetic or fit pt opt) 



11 

4000 

BCD fault (BCD option) 




Examp le: The following coding example stims a table of 50 numbers. 

It detects and corrects for arithmetic overflow using the INS 
instruction. 



ENI 

49,1 

SET L00P INDEX T0 MAX NR - 1 


ENA 

0 

CLEAR THE ACCUMULATOR 

L00P 

ADA 

TABLE,1 

ADD NEXT ENTRY OF TABLE TO THE 

* 



ACCUMULATOR 


INS 

1000B,0 

WAS THERE ARITHMETIC OVERFLOW 


UJP 

0V 

YES, JUMP TO CORRECT AT LOCATION 




OV 


IJD 

L00P,1 

AFTER LAST TIME THROUGH LOO? - 




NO DECREASE B1 BY 1 OR JUMP 

* 



T0 LOOP 

FINIS 

SHAQ 

-24 

CONVERT 24 BIT SUM TO 48 BITS 


ADAQ 

SUM48 

ADD CONVERTED SUM TO 48 BIT 

* 



ACCUMULATOR 


UJP 

EXIT 


0V 

SHAQ 

-24 

CORRECT FOR ARITHMETIC OVERFLOW 


X0A,S 

-0 

BY COMPLEMENTING THE SIGN 


ADAQ 

SUM48 

ADD CONVERTED SUM TO 48 BIT 

* 



accumulator 


STAQ 

SUM48 



ENA 

0 

CLEAR 24 BIT ACCUMULATOR 


IJD 

L00P,1 

DECREASE B1 AND JUMP TO LOOP 


UJP 

FINIS 


SUM48 

DECD 

0 


TABLE 

BSS 

50 









2Q,9>4 (cont.) 


Exercise: Assuming that data channel 5 is busy at the moment, determine 

if the operation in progress is a Read or a Write* Write 
the coding required to do this check. 


20*9*5 Copy Internal Status and Interrupt Mask Register 


mmm josiniss mmm riiis 


CIA/S 





23 18 

17 15 

14 12 

11 00 

77 

3 

1 

0000 


ch = I/O channel designator, 0-7 

Description : The GINS instruction performs the following functions: 

1) The internal status information (see table in Section 20*9.4) 
is loaded into the lower 12 bit positions of the A register* 

2) The contents of the Interrupt Mask register are loaded into 
the upper 12 bit positions of the A register. 

3) RNI from P + 1 

Example : If the Interrupt Mask register contains 0121g and the internal 

status is OIIIq, what will be in the A register after execution 
of the following instruction? 


GINS 

1 

Answer: a) 

The A register is cleared 

b) 

The contents of the Interrupt Mask Register is 
copied in the upper 12 bits of A* 

c) 

The current internal status is copied in the 
lower 12 bits of A. 


(A) -OI 2 IOIII 3 


Exercises ; i) If the Interrupt Mask register contains 7400g and a parity 

error has occurred on the channel for data channel 6 (called 
a "transmission parity error"), what will be in A after the 
execution of: 

GINS 6 


ii) If the Interrupt Mask register contains 0403g and the reject 
instruction following a SEL was executed, what coding would 
be necessary to determine the cause of the reject* (Remember 
there are three sources of SEL rejects 1) channel busy, 2) 
function illegal, and 3) function not recognized) 

20*9*6 Gomments on Internal Status and the Interrupt Mask Register 

At first glance, it appears that the INTS and INS instructions 
perform essentially the same function with relation to internal 
conditions* However, there is one important difference and that 
is the INTS instruction needs both the condition and the 
interrupt mask bit set to get a match* The INS instruction 
senses the internal condition without the necessity of having the 
interrupt mask register bit set* 





20.10 CONSOLE TYPEWRITER INPUT/OUTPUT 


20.10.1 General Description 

The 3192 Console Typewriter is an on-line input-output 
(I/O) device; i.e., it requires no connection to a 
communication channel and no function codes are issued. 

The typewriter receives output data directly from storage 
via the lower 6 bits of the Data Bus. Inputs to storage 
are handled in the same manner. 

The console typewriter consists of an electric typewriter 
and a typewriter control panel mounted on a desk console. 

Used in conjunction with block control and the Register 
File, the typewriter may be used to enter a block of 
internal binary-coded characters into storage and to 
print out data from storage. The two storage addresses 
that define the limits of the block must be stored in 
the register file prior to an input or output operation. 
Register 23* contains the initial character address of the 
block, and register 33 contains the last character address, 
plus one. Because the initial character address is 
incremented for each storage reference, it always shows 
the address of the character currently being stored or 
dumped. Output operations occur at the rate of 15 
characters per second. Input operations are limited by 
the operator’s typing speed. 


*The upper seven bits of registers 23 and 33 should be ”0”. 


20.10.2 Operation 

The general order of events when using the console type¬ 
writer for an input or output operation is: 

1) Set tabs, margins and spacing. Turn on typewriter. 

2) Clear 

3) Check status 

4) Type out or type in 


20.10.2.1 Set tabs, margins, and spacing 

All tabs, margins, and paper spacing must be set manually 
prior to the input or output operation. A tab may be set 
for each space on the typewriter between margins. 


20.10.2.2 Clear 


There are three types of clears which may be used to clear 
all conditions (except ENCODE FUNCTION) existing in the 
typewriter control. These are: 

1) Internal Clear or a Master Clear 

This signal clears all external equipment, the 
communications channels, the typewriter control, 
and sets the typewriter to lower case. 




20.10,2.2 (cont.) 


2) Clear Channel, Search/Move Control, or Type Control 
instruction (77.51). 

This instruction selectively clears a channel, the 
S/M control, or, by placing a ^'1*’ in bit 08 of the 
instruction, the typewriter control, and sets the 
typewriter to lower case. 

3) Clear Switch on typewriter. 

This switch clears the typewriter control and sets 
the typewriter to lower case, 

20.10.2,3 Status Checking 


The progranrmer may wish to check the status of the type¬ 
writer before proceeding. This is done with the Pause 
instruction. Status response is returned to the computer 
via two status lines. 


The typewriter control transmits two status signals that 
are checked by the Busy Comparison Mask using the Pause 
instruction. These status signals are: 

Bit 09 Type Not Finish 
Bit 10 Type Not Repeat 


An additional status bit appears on sense line 08. This 
code is Type Busy, and is transmitted by block control in 
the computation section when a typewriter operation has 
been selected. If the programmer is certain of the status 
of the typewriter, this operation may be omitted. 


20.10.2.4 Type In and Type Load 


The Set Type In instruction or pressing the TYPE LOAD switch 
on the console or typewriter permits the operator to enter 
data directly into storage from the typewriter. When the 
TYPE LOAD indicator on the console or typewriter glows, the 
operator may begin typing. The Encode function switch must 
be depressed to enable backspace, tab, carriage return, and 
case shifts to be transmitted to the computer during a type¬ 
writer input operation. 

Input is in character mode only. As each character is typed, 
the information is transmitted via the Data Bus to the stor¬ 
age address specified by block control. This address is 
incremented as characters are transmitted. When the current 
address equals the terminating address, the TYPE LOAD indicator 
goes off and the operation is terminated. Data is lost if 
the operator continues typing after the TYPE LOAD indicator 
goes off. 


20,10.2.5 Type Out and Type Dump 

The typewriter begins to type out when the computation 
section senses a Set Type Out instruction or the operator 
presses the TYPE DUMP switch on the console or typewriter. 
Single 6-bit characters are sent from storage to the 
typewriter via the lower 6 bits of the Data Bus. When 
the current address equals the terminating address, the 
TYPE DUMP indicator goes off and the operation is 
terminated. 


During a Type Out operation, the keyboard is locked to 
prevent loss of data in the event a key is accidentally 
pressed. 



20.10>3 Typewriter Console Switches and Indicators 


The following table shows the function of each switch and indicator for 
the console typewriter. 


■n 

Switch (S) 
Indicator (I) 

Description 

HIGH 

TEMP 

I 

This indicator glows when the ambient 
temperature within the typewriter cabinet 
exceeds 110°F. 

BUSY 

I 

This indicator shows that the TYPE LOAD or 
TYPE DUMP switch has been pressed and the 
operation is in progress. 

POWER ON 

I 

This indicator shows that power is applied 
to the typewriter. 

TYPE 

DUMP 

S & I 

This switch is in parallel with the TYPE 
DUMP switch on the main console and causes 
the computer to send data to the typewrit¬ 
er for print-out. It is a momentary con¬ 
tact switch that is illuminated until the 
last character in the block has been print 
printed or the CLEAR button is pressed. 

TYPE 

LOAD 

S & I 

This switch is in parallel with the TYPE 
LOAD switch on the main console and allows 
the computer to receive a block of input 
data from the typewriter. The TYPE LOAD 
indicator remains on until either the 
FINISH, REPEAT or CLEAR button is pressed, 
or until the last character of the block 
has been stored. If the program immedi¬ 
ately reactivates the typewriter, it may 
appear that the light does not go off. 

REPEAT 

S &: I 

This switch is pressed during a Type Load 
operation to indicate that a typing error 
occurred. This switch deactivates busy 
sense line 10 (see PAUS instruction). If 
the computer does not respond, this light 
remains on. 

FINISH 

S 6c I 

This switch is pressed during a Type Load 
operation to indicate that there is no 
more data in the current block. This 
action is necessary if the block that the 
operator has entered is smaller than the 
block defined by registers 23 and 33. 

This switch also deactivates busy sense 
line 09. If the computer does not respond, 
this light remains on. 

INTERRUPT 

S 6c I 

This switch is in parallel with the MANUAL 
INTERRUPT switch on the console and is 
used to manually interrupt the computer 
program. 


S 6c I 

This switch enables the typewriter to 
send to storage the special function codes 
for backspace, tab, carriage return, 
upper-case shift, and lower-case shift. 

CLEAR 

S 6c I 

This switch clears the typewriter controls 
and sets the typewriter to lower case but 
does not cancel Encode Function, 



























20*10.4 Character Codes 


The following table lists the internal BCD codes, typewriter print-out and 
upper- or lower-case shift that applies to the console typewriter. All 
character transmission between the computation section and the typewriter 
is in the form of internal BCD. The typewriter logic makes the necessary 
conversion to the machine code. 

Note: Shifting to upper case (57) or lower case (32) is not necessary 
except on keyboard letters where both upper and lower case is 
available. The standard type set for the 3192 has two sets of 
upper case letters and no lower case letters. This eliminates 
the need for specifying a case shift. 


Those characters that are strictly an upper or lower case character 
are not affected by the case currently selected. Case selection 
only affects those characters that may be printed in either upper 
or lower case. 


CONSbLE TYPEWRITER CODES 


Print-out 

Case 

Internal 

BCD 

Code 


L 

40 

J 

U or L 

41 

K 

U or L 

42 

L 

U or L- 

43 

M 

U or L 

44 

N 

U or L 

45 

0 

U or L 

46 

P 

U or L 

47 

Q 

U or L 

50 

R 

U or L 

51 

° (degree) 

U 

52 

$ 

U 

53 

* 

u 

54 

# 

u 

55 

% 

u 

56 

(Shift to UC) 


57 

(Space) 


60 

/ 

L 

61 

S 

U or L 

62 

T 

U or L 

63 

U 

U or L 

64 

V 

U or L 

65 

w 

U or L 

66 

X 

U or L 

67 

Y 

U or L 

70 

z 

U or L 

71 

6c 

U 

72 

9 

U or L 

73 

( 

U 

74 

(Tab) 


75 

(Backspace) 


76 

(Carriage 


77 

Return) 




Print-out 

Case 

Internal 

BCD 

Code 

0 

L 

00 

1 

L 

01 

2 

L 

02 

3 

L 

03 

/. 

-r 

L 

04 

5 

L 

05 

6 

L 

06 

7 

L 

07 

8 

L 

10 

9 

L 

11 

+ 

U 

12 

= 

L 

13 

rr 

U 

14 

: 

U 

15 

9 

L 

16 

? 

U 

17 

+ 

U 

20 

A 

U or L 

21 

B 

U or L 

22 

C 

U or L 

23 

D 

U or L 

24 

E 

U or L 

25 

F 

U or L 

26 

•G 

U or L 

27 

H 

U or L 

30 

I 

U or L 

31 

(Shift to LC) 


32 

. 

U or L 

33 

) 

U 

34 

I 

L 

35 


U 

36 

T 

L 

37 













20,10.5 Input/Qutput Instructions 


20,10,5.1 Set Console Typewriter Input 


Lrr.r^.pi*^_ 


23 18 17 12 11 00 



Bits 00 - 11 should 
be loaded with zeros 


Description ; This instruction^ like the TYPE LOAD switch, permits a 
block of data to be entered into storage as soon as the 
Type Load indicator lights. If a block of data smaller 
than the one defined by registers 23 and 33 is to be 
typed, the FINISH switch should be depressed when the 
typing is completed. If more data is entered than the 
defined block can hold, the excess data is lost. If a 
typing error occurs, the REPEAT button should be depressed, 
the typewriter input operation is terminated and the 
appropriate status bits (09 and 10) may be sensed with the 
PADS instruction. 


Examp1e : The below example illustrates initiating a typewriter 

INPUT. The INPUT data is to be stored in address INBUFF 
through INBUFF +12, 


ECHA 

INBUFF 




TAM 

23B 

SET R.F. 

L0CA 23 T<t) 

FCA 

INA 

13 




TAM 

33B 

SET R.F. 

L0CA 33 T0 

LCA+I 

CTI 


INITIATE 

TYPEWRITER 

INPUT 


ucs 

INBUFF BSS,C 13 


20.10,5.2 Set Console Typewriter Output 



Bits 00 - 11 should 
be loaded with zeros 



Description : This instruction, like the TYPE DUMP switch, causes the 
typewriter to print out the block of data defined by the 
character addresses in registers 23 and 33. 


Note: The CTI and CTO instructions are mutually exclusive. 

Any attempt to execute one while the other is being 
executed will be ignored by the computer. Typewriter 
busy should be checked before these instructions are 
used and before registers 23 and 33 are altered. 







20.10.5.2 (cont.) 


Example : 


The following example illustrates initiating a typewriter 
OUTPUT. The OUTPUT will be from address 0UTBUFF through 
0UTBUFF+15. 


ECHA 0UTBUFF 

TAM 23B 

INA 16 

TAM 33B 

CT0 


SET R.F. L0CA 23 T0 FCA 

SET R.F. L0CA 33 T0 LCA+1 
INITIATE TYPEWRITER 0UTPUT 


UCS 

0UTBUFF BSS,C 16 


20.10.5,.3 Pause Instruction (as used with Console Typewriter Instructions) 

SeHi8« OKMTUIl KOKSS F-EU 

I \ l>Aus . ■. 


23 18 17 15 14 12 11 00 

Bits 00 - 11 should 
be loaded with zeros 

Description : This instruction allows the program to halt for a maximum 
of 40 ms if s condition (oxcludlng typowrltsr—sGO note) 
defined by the pause sensing mask exists. If a appears 

on a line that corresponds to a mask bit that is set, the 
count in P will not advance. If the advancement of P is 
delayed for more than 40 ms, a reject instruction is read 
from address P + 1. If none of the lines being sensed is 
active, or if they become inactive during the pause, the 
program immediately skips to address P + 2. If an interrupt 
occurs and is enabled during a PAUS, the pause condition is 
terminated, the interrupt sequence is initiated and the 
address of the PAUS instruction is stored as the interrupted 
address. 

Note: If either bit 08, 09 or 10 (or any combination of these 

bits) is set and the sensed condition exists, a pause will 
not occur and the instruction at P + 1 is read up immediately. 
If these bits are set but the condition(s) does not exist, 
the program immediately skips to P + 2. For all other bits, 
the normal PAUS routine is followed. 


PAUSE Sensing Mask Table 


Mask 

Bit 

Mask 

Code 

Condition 

Notes 

00 

0001 

I/O channel 0 Busy 

Channel Read or Write 

01 

0002 

1 

operation in progress, 

02 

0004 

2 

or the external Master 

03 

0010 

3 

Clear logic within the 

04 

0020 

4 

channel is set. 

05 

0040 

5 


06 

0100 

6 


07 

0200 

7 


08 

0400 

Typewriter BUSY 

Typewriter input or 
output in progress 

09 

1000 

Typwrtr NOT FINISH 

FINISH switch not depressed 

10 

2000 

Typwrtr NOT REPEAT 

REPEAT switch not depressed 

11 

4000 

T-rVi/MmT^a 

BUSY 

Search or Move operation 
in progress 







20,10.5.3 (cont.l) 


Examples_£^ i) This example initiates and waits until a typewriter OUTPUT 
is complete. 


ECHA (9UTBUFF 

TAM 23B 

IMA 16B 

TAM 33B 

CT?I 

PAUS 400B 

UJP *_1 


SET R.F. L)9CA 23 T0 FCA 

SET R.F. L0CA 33 T0 LCA+1 
INITIATE TYPEWRITER 0UTPUT 
WAIT UNTIL 0UTPUT IS COMPLETE 


ucs 

0UTBUFF BCD,C 16, THIS IS THE END 


ii) Study the following example and determine what it will do. 


* 



PAUS 

400B 


UJP 

*-l 


ECHA 

INBUF 


TAM 

23B 


INA 

80 


TAM 

33B 


CTI 


* 




PAUS 

400B 


UJP 

*-1 


ECHA 

CR 


TAM 

23B 


INA 

1 


TAM 

33B 


CT0 


* 




FAUS 

400B 


UJP 

*-l 


ECHA 

INBUFR 


TAM 

23B 


INA 

10 


TAM 

33B 


CTI 


* 

• 



m 

• 

UJP 

ELSE 

* 



INBUF 

BSS,C 

80 

CR 

0CT 

-0 

INBUFR 

BSS,C 

10 


etc. 

It looks like the program will do an input, then a carriage 
return and then call for more input. If the first input is 
terminated by a REPEAT or FINISH, and 1) few or no characters 
were inputted or 2) if the operator is slow in getting his 
finger off the switch, then the second input will be termi¬ 
nated before he has a chance to type any further characters. 

Verify this for yourself by studying the actions listed on 
the next page. The key is that the CTI can be initiated 
during the 50msec interval following the end of a type-out 
as the PAUS 400B senses buffer busy not typewriter busy. 



20,1Q>5,3 (cont,2) 


Exercise: 


Note: Some programs use the REPEAT and FINISH switches 
as self clearing sense switches. This use is 
possible but is not recommended except under 
controlled conditions. The reason for this will 
be evident when the actions of the REPEAT and 
FINISH switches and PAUS instruction are studied 
below. 

REPEAT or FINISH switch depressed 

Typewriter NOT busy and not in the 50msec interval 
following a type-out operation 

Action: Set REPEAT or FINISH status bit, turn on light 

Typewriter executing a type-out or in the 50msec 
interval following a type-out operation 

Action: None 

Typewriter waiting for type-in 

Action: Set REPEAT or FINISH status bit, turn on light 
and terminate .type-in. 

End of 50msec interval at end of type-out operation and 
REPEAT or FINISH switch being held down 

Typewriter not busy. 

Action: Set REPEAT or FINISH status bit, turn on light 
Typewriter busy with new output 
Action: None 

Typewriter busy with type-in 

Action: Set REPEAT or FINISH status bit, turn on light 
and terminate type-in. 

At any time when the REPEAT or FINISH light is on and 
status bit set and the REPEAT or FINISH switch is being 
held down. 

REPEAT or FINISH being sensed by PAUS instruction 

Action: Clear REPEAT or FINISH status bit and 

turn off light. (Switch must be released 
and depressed again to reset) RNI at P+2, 
where otherwise it would be P+1. 


Write a subroutine that will output a carriage return and 
then tab the console typewriter. Then initiate a type-in 
of 1 character and wait until that character is received 
or a NOT busy, repeat or finish condition arises. Clear 
repeat and/or finish if present. 



STUDENT NOTES 




INTERRUPTS 


21.1 INTERRUPTS USING GIG 


21.2 INTERRUPTS WITHOUT USING GIG 


21.3 I/O USING GIG 


21.4 INTERRUPT MASK REGISTER BIT ASSIGNMENTS 


21.5 GIT ASSIGNMENTS 


Chapter 






21.1 INTERRUPTS USING GIG 


Description : There are twelve groups of conditions for which, when one or 

more of these conditions occur, the programmer may wish to jump 
to a special sequence of coding, and upon completion of that 
task, resume processing in his original task. Processing in 
this manner is called '^interrupt processing”. 

The twelve groups of conditions mentioned above are listed in 
the table ^Interrupt Mask Register Bit Assignments” in Section 
21.4 at the end of this discussion. This register (IMR) is 
set by the programmer. 

In addition to the IMR, there are twelve flip-flops, each 
representing one of the conditions specified by the IMR. 
(Schematically, we may consider this as a 12-bit Interrupt 
Register.) When one of the 12 interruptible conditions occurs, 
the hardware sets the corresponding flip-flop in this Interrupt 
Register. If the corresponding bit has been set by the pro¬ 
grammer in the IMR (and the interrupt system is enabled), 
interrupt processing will take place. The programmer must 
have previously placed the address of his interrupt routine 
in the GIT table. 

Examp1e ; Add the integers in BUF thru BUF-f99. If an arithmetic over¬ 

flow occurs, jiHup to a routine to process the sum using 
double-precision (48-bit) integer arithmetic. 



EXT 

GIT 


SUM 

0GT 

0,0 


START 

UJP 

** 



ENA 

INTADD 

*ST0RE ADDRESS 


ENI 

7,1 

0F INTERRUPT R0UTINE AT CIT+7 


SWA 

GIT,1 

(SEE TABLE 21.5) 


SSIM 

EINT 

2000B 

*SET IMR F0R 0VERFL0W C0NDITI0N 
*ENABLE INTERRUPT SYSTEM 



ENA 

0 



ENI 

99,1 


L00P 

ADA 

BUF,1 

*ADDITI0N L00P 


IJD 

L00P,1 


* 



*100 W0RD SUM IS COMPLETE,. EXCEPT 


SHAQ 

= '>4 

*ADD 24-BIT SUM IN 


ADAQ 

SUM 

T0 48-BIT SUM IN *SUM* 


STAQ 

SUM 

*ALL D0NE 


UJP, I 

START 


* 




INTADD 

UJP 

** 



ENA 

INTADD 

1 


SWA 

CIT,1 

2 


ENI 

1,1 

3 


LDA 

CIT,1 

4 


SHAQ 

-24 

5 


X0A,S 

-0 

6 


ADAQ 

SUM 

7 


STAQ 

SUM 

8 


ENA 

0 

9 


STA 

CIT,1 

10 


UJP, I 

INTADD 

11 




21.1 (cont.l) 


Discussion of START+1 thru STARTH-5 in the Example 

Initialization to recognize an interrupt 

(1) the programmer must store the address of his Interrupt 
routine in the lower 15 bits of the proper CIT table 
entry (See Section 21i5) and 

(2) the programmer must set the proper bit or bits in the 
IMR (See Section 21.4) and 

(3) the programmer must enable the interrupt system. 


Discussion of INTADD in the Example 
Processing the interrupt 

(I) * and (2)* GIC replaced the lower 15 bits of CIT+7 with the 

address of ABNORMAL. If we expect to get another 
overflow interrupt, we must again place the address 
of our routine in CIT+7. (Location CIT+7 applies 
only to overflow interrupts, see Section 21.5) 

Upon entry to an interrupt routine, CIT+(B^) equals 
the GIT table location w^here the FWA of an Interrupt 
Routine must be placed to process the next interrupt 
of the type currently being processed. 

(3) *and (4)- CIC stored the original contents (the ”overflowed^' 

sum) of the A register at CIT+1 and used the A 
register for its own purposes. We are merely re¬ 
loading the original A register contents at the 
time of overflow so that we may process the over¬ 
flow. 

(4) *, (5)*, (6)*, (7)* 6c (8)- are processing the overflow condition 

into a 48-bit true sum. 

(9)*and (10)* Since GIC will load the A register from CIT+1 be¬ 
fore returning to our original sequence, we must 
place into CIT+1 whatever quantity we desire to 
be in the A register upon re-entry into our original 
sequence. 

(II) * Returns us to CIC for housekeeping (explained later) 

before giving control to our original sequence. 

Discussion of the -Function of CIC 


When an interruptible condition occurs, the Interrupt Register 

is compared to the IMR. If (a) any corresponding bits are set, 

and (b) the interrupt system has been enabled, then 

(1) the interrupt system is disabled, 

(2) the address of the instruction which would normally be 
executed next is stored in the lower 15 bits of absolute 
location 4, 

(3) an identifying code is stored in the lower 12 bits of 
location 5 and, 

(4) control is given to location 5. 

Here are the contents of locations 4, 5 and 6 under SCOPE. 


00004 

UJP 

irk 

00005 

N0P 

0 

00006 

UJP 

CIC 

*refers to card number in 

INTADD example 




21,1 (cont,2) 


Since the hardware gives control to location 5 (which is a no 
operation instruction), we see that a jump is made to CIC (Central 
Interrupt Control), CIC saves the contents of A, Q, and B^ 

at CIT+1 thru CITH-5, Since an identifying code (showing what 
condition caused the interrupt) is set in the lower 12 bits of 
location 00005, CIC knows which entry in CIT contains the address 
of the programmers interrupt routine, 

CIC does a return jump to this location, and the programmer's 
interrupt routine (INTADD in this example) is executed. The 
interrupt routine does a UJP or UJP,I thru it’s entry point 
to return to CIC when finished, 

CIC restores the five registers, clears the flip-flop which was 
set by the interruptible condition (arithmetic overflow in the 
example), enables the interrupt system, and does an indirect 
jump through location 00004. The indirect jump gives control back 
to the instruction which was orginally interrupted. 


21.2 INTERRUPTS WITHOUT USING CIC^ 


If the programmer does not wish to use CIC to help in the pro¬ 
cessing of his interrupt, then at location 00006 he must store 
a jump to the address to which he wishes control to be given. 

In his interrupt routine, he must save and restore his registers 
(if his routine uses them) if he wishes them to have their 
original contents upon return to the main coding. He must also 
clear the flip-flop in the Interrupt Register (with an INCL 
instruction) which signalled the interruptible condition. His 
last two instructions should be: 

EINT 

UJP,I 4 

If the last instruction in the interrupt routine does not use 
an indirect reference to location 00004, the control may never 
return to the main prograa. This is because after an EINT he is 
assured of being able to execute only one more instruction before 
the interrupt system can recognize another interrupt. Hence, if 
he has programmed for interrupt on more than one condition and 
another is present, the computer will interrupt again and the 
address portion of the jump instruction at location 00004 will 
be changed before it can be executed. Since it will be changed 
to 00004, the computer will stall on a jump to location 00004 
after completing the processing of the current interrupt. 


*Since CIC is essential for SCOPE I/O, it is assumed that no I/O 
will be done or that SCOPE isn’t being used. 


21,3 I/O USING CIC (See also Section 16,2.3) 

In programming for I/O interrupts using CIO, all the housekeeping 
is done by CIO. (The programmer does not EINT, SWA GIT-Hc, or set 
the IMR with an SSIM), CIO actually uses CIC in the same manner 
that we indicated, but the programmer does not have to attend to 
the details. 


Ex amp1e ; Suppose that we wish to output 30 words from locations BUFF thru 
BUFF+29 onto logical unit 15. We wish to continue executing 
instructions while the output is going on. However, as soon as 
the output is finished, we wish to be ’’interrupted” and process 
a special sequence of code, then return to our original sequence. 



21.3 (cont.) 


Following is the code that will accomplish the task: 


EXT C10 


START 

• 

UJP 

• 

kk 

ENTRY 


• 

• 

ENA 

STA 

0 

BFRBUSY 

SET 

BUFFER FLAG T0 BUSY 


RTJ 

CI0 

G<t) T0 CI0 T0 - 


02 

15,2 

WRITE WITH INTERRUPTS 0N LU 15 


UJP 

REJECT 

WRITE REJECTED IF WE GET HERE 


40 

BUFF 

START 0UTPUTTING FR0M L0CA *BUFF* 


0 

30 

0UTPUT 30 W0RDS 


0 

• 

e 

INTADD 

WHEN INTRPT 0CCURS, G0 T0 INTADD 


• 

• 

SSH 

BFRBUSY 

NEED *BUFF* N0W, IS WRITE D0NE 


UJP 

• 

• 


IF N0, L00P UNTIL FINISHED 

IF YES, G0NTINUE 


m 

UJP, I 

START 

PE0GRAM ALL D0NE, EXIT T0 SC0PE 

"k 

T-Kirp A 

TT T^D 

UOi. 

• 

• 

• 

• 

• 

kk 

ENTRY P0INT 0F INTERRUPT R0UTINE 

Interrupt Routine 
f Special Sequence of Code 


• 

ENA,S 

STA 

-0 

BFRBUSY 

j 

SEl 

1 

: BUFFER FLAG T0 N0T BUSY 


UJP, I 

INTADD 

EXIT T0 MAIN C0DE VIA CIC 

k 

BFRBUSY 

0GT 

-0 

+0 

= BUSY, -0 = N0T BUSY 


21.4 INTERRUPT MASK REGISTER BIT ASSIGNMENTS 


Mask Bit 
Positions 

Mask Codes (x) 

Interrupt Conditions Represented 

00 

0001 

I/O Channel 0 (includes interrupts 
generated within the 
channel and external 
equipment interrupts) 

01 

0002 

1 

02 

0004 

2 

03 

0010 

3 

04 

0020 

4 

05 

0040 

5 

06 

0100 

6 

07 

0200 

7 

08 

0400 

Real-time clock 

09 

1000 

Exponent overflow/underflow 6c BCD faults 

10 

2000 

Arithmetic overflow 6c divide faults 

11 

4000 

_i 

Search/Move completion 







21.5 CIT ASSIGNMENTS 


Symbolic 

Location 

Content 

Explanation 

CIT+0 

Interrupt flag 


If +0, no interrupt occurred. 




If -0, interrupt occurred. 

+1 

(A) 

*N 

Contents of these registers 

+2 

(Q) 


when last interrupt occurred. 

+3 

(b1) 


^ Registers are restored 

+4 

(b2) 


from here on exit from 

+5 

(b3) 


CIC. 

+6 

Real Time Clock 



+7 

Arithmetic Overflow 


Initially contains UJP ABNORMAL.. 

+8 

Divide Fault 


Address of user interrupt routine 

+9 

Exponent Overflow 


^ stored in CIT by user main 

+10 

BCD Fault 


program when the corresponding 

+11 

Search/Move 


interrupt is selected. 

+12 

Manual Interrupt 



+13 

Associated Processor 




1 Interrupt 

J 


+ 14 

Channel 0 


Initially contains UJP ABNORMAL. 

+15 

Channel 1 


Address is set by CIO when 

+ 16 

Channel 2 


interrupt is selected. Table is 

+ 17 

Channel 3 


extended for each pair of 

+18 

Channel 4 


channels added to the hardware 

+ 19 

Channel 5 


configuration*. 

+20 

Channel 6 



+21 j 

Channel 7 

- 



* The Central Interrupt Table (CIT) length varies from 
15 to 21 entries and is dependent on the number of 
channels present in the system. The length of the 
table is specified at the time GIC is assembled under 
COMPASS prior to doing a PRELIB (Prepare library tape) 
of SCOPE. 






SAMPLE COMPASS PROGRAMS 


SEQUENCE,001 

AIT 

EXAMPLES 

AIB 

EXAMPLE 20 (AVERAGE) 

A9B 

EXAMPLE 19A(CR2PR) 

AllT 

EXAMPLE 21 (CODE) 

A12B 

EXAMPLE 22 (MEQ.TEST) 

A14T 

EXAMPLE 23 (TY.OUT) 

A15B 

EXAMPLE 24 (DEMO) 

A17T 

EXAMPLE 25 (MTDRIVER) 

A22T 

MAC 

A25T 

EXAMPLE 26 (COPY) 

A27T 

CIC VERSION SI 0*0 

A29B 

MTMTCIO 

A32T 

TYPEIN 

A34T 

SORT 

A35B 

TYPEOUT 

A37T 

FLOATF 

A38B 

CRDTP 

A40T 

MTMT 

A42T 

CVTBCDB 

A44T 

CVTBBCD 

A45B 

SEQUENCE,002 

A47T 

I DC 

A47B 

- Load/Snap/Run - 

A48B 

- Memory Map - 

A49T 

- Snap Nxjmber 1 & 2 - 

A50T 

SEQUENCE,003 and OCC^s 

A51T 

- Memory Map - 

A51B 

- Memory Dtimp - 

A52B 


A9T 

AlOB 

A12T 

A13B 

A15T 

A16B 

A21B 

A24B 

A26B 

A29T 

A31B 

A33B 

A35T 

A36B 

A38T 

A39B 

A41B 

A43B 

A45T 

A46B 

A48T 

A50B 


Appendix 



SEQUENCE*001 
JOUlit* 
COMPASStLfH 


compass-32 (2.1) 


examples 


ll/?l/66 


undefined symbols 

SAM 

SYM 

symbol 


multiply-defined symbols 

GEORGE 


EXTERNAL SYMBOLS 
BCDBOXS 

fdpboxs 


LENGTH OF subprogram 00372 
LENGTH OF COMMON 00000 
LENGTH OF DATA 00000 


PAGE 1 









COMPASS-32 (2,1) 


examples ii/5»i/66 Page ? 

This is a listing of the COC 3200 instpuction set 


A-2 



— DEFINITION OF OPERATION rODE MODIFIERS ——— 

EU 

EQUAL 

NE 

NOT equal 

GE 

GREATER THAN OR EQJAl TO 

LT 

less than 

I 

indirect ADDRESSING 

S 

SIGN EXTENSION 

int 

INTERRUPT 

B 

BACKWARD 

H 

half assembly or disassembly 

N 

NO assembly or disassembly 


— definition of terms and symbols - 


A the #a# register 

0 the * q * register 

AO 48 BIT REG * (A AMD 0 COMBINED RESPECTIVELY) 

OA 48 ftlT REG , (Q AND A COMBINED RESPECTIVELY) 

E THE 48 BIT AEa REGISTER 

EL LOiKER 24 BITS OF AEA 

EU UPPER ?4 BITS OF AE# 

EO THE 52 BIT (13 CHAR) AE DEClMALA REGISTER, SAME AS 

AEA BUT extended FHOm 48 TO 52 BITS, 

ARE 96 BIT REG * (A,Q AND E COMBINED RESPECTIVELY) 

8 ANY ONE OF THE THREE INDEX REGISTERS 

81 INDEX register ONE ONLY 

H2 INDEX register too OnLY 

83 INDEX register THREE ONLY 

0 4 BIT ADA REGISTER 

IMr INTERRUPT MASK register 

M 15 BIT WORD address 

R 17 BIT character address 

FSCA FIRST SOURCE CHARACTER ADDRESS 

FOCA first destination CHARACTER ADDRESS 

V 6 BIT register FIlE aOORFSS 

Y 15 BIT operand 

C 6 BIT SEARCH character 

FL 4 BIT OPERAND (BCD PlELo LENGTH) 

P CURRENT instruction aOORfSS aS INdICaTEO BY THE P REG 

( ) CONTENTS OF 

(M) 24 BIT contents OF MEMORY LOCATION M 

{M,M»U 48 BIT contents OF MpM LOCS M AND M^i RESPECTIVELY 

(R) 6 BIT CONTENT OF MEMORY CHARACTER LOcaTIDn H 

IV) 24 HIT contents UE RfG FtLE LOCATION V 


CUMPASS-32 (2,1) examples ll/?l/66 PAGE 3 

RNI READ NEXT INSTRUCTION 

«HERE DATA IS BEING STORpO INTO PaRT OF A MEMORY 
LOCATION t the remainder OF THAT LOCATION REMAINS 

unchanged 

ALL possible operation MODIFIERS aW£ SHOhn WITH EACH 
MNEMONIC CODE « SEPARATED BY (•), 

THESE IS NO ORDER t i^HERP MULTIPLE MoDFiESS ARE 
POSSIBLE, 

THE FOLLOWING MODIFIERS aHE OPTIONAL AND CAN HE 
DROPPED BY ElEMINATInG BOTH THE MODIFIER AND THE 
PRECEDING comma, 

1 t S « INT I B f H , N , 


ON ALU CONDITIONAL JUMP ANO SKIP INSTRUCTIONS » 
IF THE CONDITION IS mOT MET THEN RNI P*1 














C0MPASS-»32 (Z.n examples ll/?l/b6 PAGE 4 

**********************-»*»********««***********»***«*****«»************* 

- 3200 instruction SET - 


LOAD CLASS 


00000 

20725252 

20 

1 

25252 

3 

LOa*I 

M,0 

(M) TO A 

00001 

21725252 

21 

1 

25252 

3 

LDQf I 

H*B 

(M) TO Q 

00002 

22425253 

22 

1 

05252 

3 

LACH 

RtBl 

(K) TO A 05-00 . A 23-06 CLEARED 

00003 

23425253 

23 

1 

05252 

3 

LQCH 

«t82 

(R) TO 0 05-00 , Q 23-06 CLEARED 

00004 

24725252 

24 

1 

25252 

3 

LCa»1 

M,8 

(M)complement To A 

00005 

25725252 

25 

1 

25252 

3 

LOa(^*1 


(m«m«i] to AQ 

00006 

26725252 

26 

1 

25252 

3 

LCa^*! 

M,8 

(MfM*l)COMPLEMENT TO AQ 

00007 

27725252 

27 

1 

25252 

3 

lol»i 

M,8 

(M)lM(Q) to a • m ano q unchange 

00010 

54725252 

54 

1 

25252 

3 

LOliI 

M,8 

(M 14-00) TO 8 








STORE CLASS 


00011 

40725252 

40 

1 

25252 

3 

STaiI 

M » B 

(A) TO M 

00012 

41725252 

41 

1 

25252 

3 

STo.I 


(Q) TO M 

00013 

42425253 

42 

1 

05252 

3 

SACH 

R.B2 

(A 05 - 00 ) To R 

00014 

4342S2S3 

43 

1 

05252 

3 

S(JCH 

WtBl 

(Q 05-00) TO R 

00015 

44725252 

44 

1 

25252 

3 

SMAf I 

M,8 

(A 14-00) To M \4-00 

00016 

45725252 

45 

1 

25252 

3 

STa<J»1 

M,8 

(AQ) TO M«M«i 

oooir 

46725252 

46 

1 

25252 

3 

SChA.I 

M,8 

(A 16-00) TO M 16-00 

00020 

47725252 

47 

1 

25252 

3 

STi»I 

M,e 

(8) TO M 14-00 








24 BIT ARITH CLASS 


00021 

30725252 

30 

1 

25252 

3 

AOAtl 


(A)*tM) TO A 

00022 

31725252 

31 

1 

25252 

3 

S8a«I 

M,8 

(A).(M) TO A 

00023 

50725252 

50 

1 

25252 

3 

MUAtl 


(A)*{M) TO OA 

00024 

51725252 

51 

1 

25252 

3 

OVAf I 

M,8 

(AQ)/(M) TO A * remainder TO Q 

00025 

34725252 

34 

1 

25252 

3 

RAOfI 


{a)*(m) TO m t a is unchanged 








48 BIT ARITH CLASS 

00026 

32725252 

32 

1 

25252 

3 

AOaQ,I 


(AQ)*(H«M4l) TO AQ 

00027 

33725252 

33 

1 

25252 

3 

SBaU.I 


(AQ)-(M,M«1) TO AQ 

00030 

56725252 

56 

1 

25252 

3 

MUA'Jfl 

H,e 

(AQ)*(M,M*1) TO AQE 

00031 

57725252 

57 

1 

25252 

3 

dvau.i 

M,e 

(AQe)/(m,M*1) To AQ, REMDH TO E 








floating POINT aRith Class 

00032 

60725252 

60 

1 

25252 

3 

FAOtl 

M,8 FP(AO) ♦ 

fP(m,m*1) to aq 

00033 

61725252 

61 

1 

25252 

3 

FSR.I 

H,8 FP(AQ3 - 

fP(M,M*1) TO AQ 

00034 

62725252 

62 

1 

25252 

3 

FMutI 

M,0 FP(AQ) * 

FP(M,M*1) TO AQ 

00035 

63725252 

63 

1 

25252 

3 

FOvtl 

M,8 FP(AQ) / 

fP(M,M^1) TO aq 
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BCD CLASS 


00036 

64425253 

64 

1 

05252 

3 

loe 

FCA,8l 

(FCA THRU FCA.(D)-l) TO ED RIGHT JUSTIFIED 

00037 

65425253 

65 

1 

05252 

3 

stf 

FCA,B2 

(ED) TO FCA Thru FCA»(0)-l t RIGHT JUSTIFIED 

00040 

66425253 

66 

1 

05252 

3 

ade 

FC4,83 

(ED)*(FCA THRU FCa*(D)-1) TO FD 

OQ041 

67425253 

67 

1 

05252 

3 

SBF 

FCA,B3 

(ED)-(FCA THRU FCa*(D)-1) TO FO 

00042 

70300014 

70 

0 

00014 

3 

sff 

K,B 

SHIFT ED 9 K digits LEFT OR RIGHT (END OFF) 

00043 

70700012 

70 

1 

00012 

3 

set 

FL 

Fl TO D 

00044 

70625252 

70 

1 

25252 

2 

EOJ 

M 

RNI M IF eo Overflow character is nonzero 

00045 

70425252 

70 

1 

25252 

0 

EZjtEO 

M 

RNI M IF ED CONTAINS ZERO 

00046 

70525252 

70 

1 

25252 

1 

eZjfLT 

M RNI M IF ED Is negative 

24 BIT InTER-REGISTEH TRANSFER CLASS 

00047 

53300000 

53 

0 

00000 

3 

tu 

B 

(B) TO A 14-00 . A 23-15 CLEARED 

00050 

53700000 

53 

1 

00000 

3 

TAi 

H 

(A 14-00) TO 8 

00051 

53010077 

53 

0 

10077 

0 

TMO 

V 

(V) TO Q 

00052 

53410077 

53 

1 

10077 

0 

TQm 

V 

(Q) TO V 

00053 

53020077 

53 

0 

20077 

0 

TMa 

V 

(V) TO A 

00054 

53420077 

53 

1 

20077 

0 

TAm 

V 

(A) TO V 

00055 

53330077 

53 

0 

30077 

3 

TMI 

VtB 

(V 14-00) TO 8 

00056 

53730077 

53 

1 

30077 

3 

TIm 

V,fl 

(B) TO V 14-00 , V 23-15 CLEARED 

00057 

53040000 

53 

0 

40000 

0 

AUa 


(A)«(Q) TO A 

00060 

53340000 

53 

0 

40000 

3 

AIa 

B 

(A).{0) TO A 

00061 

53740000 

53 

1 

40000 

3 

lAl 

H (A).(B) to B 

48 BIT InTER-REGISTEK TRANSFER 

00062 

55100000 

55 

0 

00000 

1 

elq 


(EL) TO Q 

00063 

55500000 

55 

1 

00000 

1 

qel 


(Q) TO EL 

00064 

55200000 

55 

0 

00000 

2 

EUa 


(EU) TO A 

00065 

55600000 

55 

1 

00000 

2 

AEu 


(A) TO EU 

00066 

55300000 

55 

0 

00000 

3 

EAQ 


(E) TO AO 

00067 

55700000 

55 

1 

00000 

3 

aqf 


(AQ) TO E 







A-4 
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• 








STOP and JUMP CLASS 



00070 

14000000 

14 

0 

00000 0 

NOP 


00 nothing 


! • 

00071 

00025252 

00 

0 

25252 0 

HLT 

M 

STOP* RnI M 

9 

1 

1 

00072 

77770000 

77 

1 

70000 3 

ucs 


stop* rni P*1 


• 

00073 

01725252 

01 

1 

25252 3 

UJPtl 

M,8 

RNI M 

9 


00074 

00725252 

00 

1 

25252 3 

RTj 

M 

(P) TO M 14-00 « RNI M*1 

A 

1 

00075 

00125252 

00 

0 

25252 1 

SJl 

M 

RNI H IF KEY 1 IS SET 

w 


00076 

00225252 

00 

0 

25252 2 

SJ2 

M 

RNI M IF KEY 2 TS SET 


1 • 

00077 

00325252 

00 

0 

25252 3 

SJ3 

M 

RNI M IF KEY 3 TS SET 

• 


00100 

00425252 

00 

1 

25252 0 

SJ4 

M 

RNI M IF KEY 4 TS SET 


i ^ 

00101 

00525252 

00 

1 

25252 1 

SJ5 

M 

RNI H IF KEY 5 TS SET 


9 

00102 

00625252 

00 


25252 2 

SJ6 

M 

RNI M IF KEY 6 TS SET 

• 


00103 

03025252 

03 

0 

25252 0 

A2j«EQ 

M 

RNI M If (A) EO ♦ OH - ZERO 


9 

00104 

03125252 

03 

0 

25252 1 

AZj*NE 

M 

RNI M IF (A) NE * OR • ZERO 

• 


00105 

03225252 

03 

0 

25252 2 

AZjtGE 

M 

RNI M IF <A) POSITIVE 


• 

00106 

03325252 

63 

0 

25252 3 

AZjtLT 

M 

RNI M IF <Al NEGATIVE 

A 


00107 

03425252 

03 

1 

25252 0 

AOjvEQ 

M 

RNI M IF (A) EQ (Q) 



00110 

03525252 

03 

1 

25252 1 

AOjtNE 

M 

RNI M IF (A) NE (Q) 


9 

00111 

03625252 

03 

1 

25252 2 

AOjtGE 

M 

RNI H IF (A) GE (Q> 

9 


00112 

03725252 

03 

1 

25252 3 

AQjtLT 

M 

RNI H IF CA) LT (0) 


1 ^ 

00113 

02325252 

02 

0 

25252 3 

UI 

M,B 

IF <B) NE 0 (B>*1 TO B AND RNI M. OW RNI P*l 

9 


00114 

02725252 

02 

1 

25252 3 

uo 

M,0 

IF (61 NE 0 (R)«l TO R ANO RNT M* OW RNI P«1 


• 







SKIP class 

9 

9 






without 

SIGN EXTENSION , ONLY THE lOWER 15 RlTs OF A OR 0 

9 







ahe compared with y, 

with SIGN EXTENSION t BIT 14 OF Y IS EXTENDED THRU BIT 23 


V 






making V 

24 BITS FOR COMPARISON WITH ALL OF A OR Q, 

9 

9 

00115 

04412345 

04 

1 

12345 0 

ASe>S 

Y 

RNI P*2 IF (A) EQ Y * OW RNI P*1 

9 


00116 

04512345 

04 

1 

12345 1 

QSEtS 

Y 

RNI P*2 IF (0) PQ Y * OW RNI P*1 



00117 

04312345 

04 

0 

12345 3 

ISE 

YtB 

RNI P«2 IF (Bl FQ Y * Ow RNI P*l 


9 

00120 

04012345 

04 

0 

12345 0 

isf 

Y 

RNI P«2 IF Y EQ 0 * OW RNI P«1 

9 


00121 

05412345 

05 

1 

12345 0 

AS6*S 

Y 

RNI P*2 IF (A) GE Y . OW RNI P*1 


1 9 

00122 

05512345 

05 

1 

12345 1 

OSo»S 

Y 

RNI P*2 IF (Q) GE Y * Ow RNI P *1 

9 


00123 

05312345 

05 

0 

12345 3 

ISO 

Y,8 

RNI P*2 IF (R) GE y * OW RNI P*l 


1 • 

00124 

10712345 

10 

1 

12345 3 

isn 

Y*B 

IF (B) EQ Y ClCAR B and RNf P*2, OTHERWISE 

9 

• 

• 

# 

00125 

10312345 

10 

0 

12345 3 

isi 

Y#B 

IF (Bi EQ Y Clear b and rni p«2* otherwise 

18)TO B and RNt P*1 
(Bl-l TO B and rni P^l 

9 

9 

m 

• 

9 

C0MPASS-i2 
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m 

9 

• 







SHIFT CLASS 

% 







POSITIVE 

SHIFT 

COUNT (K) indicates LEFT SHIFT. ALL LEFT 








SHIFTS ARE END 

around* 


# 






NEGATIVE 

SHIFT 

COUNT IK) indicates right SHIFT. ALL RIGHT 

9 







SHIFTS ARE END 

OFF WITH SIGN Extended* 


• 

00126 

12300014 

12 

0 

00014 3 

SHa 

K«B 

shift (A) LEFT DR RIGHT K BITS 

9 


00127 

12700014 

12 

1 

O0014 3 

SMQ 

K,e 

shift (Q) left or right K BITS 



00130 

13300014 

13 

0 

00014 3 

SHaQ 

K*B 

shift (AQ) LFFT or right K BITS 

9 

0 

00131 

13700014 

13 

1 

00014 3 

SCaU 

K,B 

scale (AQ) 









ENTER CLASS 


9 






without 

SIGN EXTENSION , THE UPPER BITS OF a TDR Q ARE CLEARED, 

• 







with SIGN EXTENSION « BIT 14 OF Y (BIT 16 OF R) IS EXTENDED 


9 






making Y 

OR R 

24 BITS FOR entry INTO ALL OF A OR Q, 

• 


00132 

14412345 

14 

1 

12345 0 

ENA*5 

Y 

Y To A 14-00 


9 

00133 

14512345 

14 

1 

12345 1 

ENOfS 

Y 

Y To Q 14-00 

9 


00134 

14312345 

14 

0 

12345 3 

ENi 

¥,B 

Y To 8 


9 







increase CLASS 

9 

9 






with or 

WITHOUT SIGN extension t Y WILL BE TREATED AS A 24 BIT 

9 







value when ADDED TO A OR Q. 








without 

SIGN EXTENSION , BITS ?3-*l5 OF Y WILL «E ZERO, 


9 






with SIGN EXTENSION i BIT 14 OF Y IS EXTENDED THRU BIT 23 

9 







making ¥ 

A 24 

9IT VALUE, 


9 






IF Y IS 

A negative value « THE REGISTER WILL BE DECREASED BY 

9 







THaT amount. 

c must use sign ext in This case for a and Q) 



00135 

15412345 

15 

1 

12345 0 

iNAtS 

Y 

increase (A) BY Y 

9 


00136 

15512345 

15 

1 

12345 1 

iNOtS 

Y 

increase (Q) by Y 

A 

9 

9 

9 

9 

9 

00137 

15312345 

15 

0 

12345 3 

INI 

Y,0 

INCREASE (B) BY Y 

w 

9 

9 

9 

9 






• 

• 
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m 

9 

A 








logical instructions Without storage reference 

9 








41th oh 

WITHOUT SIGN EXTENSION « Y IS TREATED AS A BIT 









value. 




# 







WITHOUT 

sign extension , blTS 73-lS OF Y AHp ZFROS, 

9 








with sign extension , bIT 14 

OF Y TS extended THRU BIT 23 


• 







making Y 

A 24 HIT value FOR 

THF OPfRATION, 

# 


00140 

16412345 

16 

1 

12345 

0 

XOAfS 

Y 

SC (A) BY Y 


• 

00141 

16512345 

16 

1 

12345 

1 

XOQfS 

Y 

SC (0) BY Y 

9 


00142 

16312345 

16 

0 

12345 

3 

xoi 

Y,B 

SC (8) RY Y 


# 

00143 

17412345 

17 

1 

12345 

0 

ana*s 

Y 

LM (A) BY Y 

9 


00144 

17512345 

17 

1 

12345 

1 

ANQtS 

Y 

LM (Q) by Y 


* 

00145 

17312345 

17 

0 

12345 

3 

ant 

YiB 

LM (B) BY Y 

• 









logical INSTRUCTIONS WITH STORAGE REFERENCE 


• 

00146 

35725252 

35 

1 

25252 

3 

ssa*i 

M,B 

SS (A) BY (M) 

9 


00147 

36725252 

36 

1 

25252 

3 

SCAtl 

M.B 

SC (A) BY (M) 


• 

00150 

37725252 

37 

1 

25252 

3 

LPa*I 

M,8 

LM (A) BY (MJ 

# 









BUFFERED SEARCH 

and MOVE Class 


• 

00151 

71425261 

71 

1 

05254 

1 

SKCEtiNT 

C»FCA,LCA*1 

search (FCA thru lca) for eq c 

9 


00152 

23025253 

23 

0 

05252 

3 






00153 

01000151 

01 

0 

P00151 

0 

UJP 

*-2 

reject instruction 


• 

00154 

71425261 

71 

1 

05254 

1 

SHCi^flNT 

C.FCA,lCA*1 

search (FCA thru LCA) FOR NE C 

# 


00155 

23425253 

23 

1 

05252 

3 






00156 

01000154 

01 

0 

P00154 

0 

UJP 

#-2 

reject Instruction 


• 

00157 

72425653 

72 

1 

05352 

3 

MOvEfINT 

FL.FSCA»FDCA 

move (Fsca thru fsca*fl-i> to 

# 


00160 

05025253 

05 

0 

05252 

3 



fuca thru fdca+fl-i 


• 

00161 

01000157 

01 

0 

P00157 

0 

UJP 

*-2 

reject Instruction 

9 

A 








STORAGE TEST CLASS 

m 


00162 

06225252 

06 

0 

25252 

2 

M£o 

M»INTERVAL 

masked equality search 

w 


00163 

07225252 

07 

0 

25252 

2 

mth 

M,interval 

masked threshold search 


# 

00164 

10025252 

10 

0 

25252 

0 

SSh 

M 

storage test and shift 

• 

• 

• 

m 

• 

00165 

52725252 

52 

1 

25252 

3 

CPRtI 

M,B 

COMPARE (M) with (A) AND (Q) 

• 

9 

# 

9 

• 

# 

• 

• 
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— 

— 
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• 

• 

# 

9 









INPUT / OUTPUT 


A 


00166 

77067007 

77 

0 

67007 

0 

CON 

CCtCH 

connect to I/O equipment 

w 

A 

00167 

01000166 

01 

0 

P00166 

0 

UJP 


reject Instruction 


• 

00170 

77160022 

77 

0 

60022 

1 

SEl 

FCiCH 

select function ON I/O EQUIPMENT 



00171 

01000170 

01 

0 

P00170 

0 

UJP 

*-l 

reject instruction 


• 

00172 

73025261 

73 

0 

05254 

1 

iNPCfiNT 

fBtH CHtFCA»LCA*l 

CHAR AORS input TO STORAGE 

9 


00173 

63425253 

63 

1 

05252 

3 





• 

00174 

01000172 

01 

0 

P00172 

0 

UJP 

*-2 

reject Instruction 

9 


00175 

73400000 

73 

1 

00000 

0 

inac#int 

CH 

char adrs input to a 


# 

00176 

60400000 

60 

1 

00000 

0 




9 


00177 

01000175 

01 

0 

P00175 

0 

UJP 

*-2 

reject Instruction 


• 

00200 

74025322 

74 

0 

25322 

0 

INPW.INT 

f3«N CHfFWAtLWA^l 

word ADRS INPUT TO STORAGE 

9 


00201 

63425252 

63 

1 

25252 

0 





# 

00202 

01000200 

01 

0 

P00200 

0 

UJP 

*-2 

reject instruction 

9 

• 

00203 

74400000 

74 

1 

00000 

0 

inam.int 

CH 

word AORS input TO A 

9 


00204 

60400000 

60 

1 

00000 

0 





• 

00205 

01000203 

01 

0 

P00203 

0 

UJP 

*-2 

reject instruction 

9 


00206 

75025261 

75 

0 

05254 

1 

OUTCtiNT 

•B»H CH*FCA*LCA*l 

char AORS OUTPUT FROM STORAGE 


# 

00207 

63425253 

63 

1 

05252 

3 




9 

A 

00210 

01000206 

01 

0 

P00206 

0 

UJp 

*-2 

reject Instruction 


• 

00211 

75400000 

75 

1 

00000 

0 

OTaCiINT 

CH 

CHAP adrs output FROM A 

9 


00212 

60400000 

60 

1 

00000 

0 





# 

00213 

01000211 

01 

0 

P00211 

0 

UJP 

*-2 

reject instruction 

9 

• 

00214 

76025322 

76 

0 

25322 

0 

OUTWtiNT 

fS.N CHfFWAfLWA«l 

word AORS OUTPUT FROM STORAGE 

9 


00215 

63425252 

63 

1 

25252 

0 




• 

00216 

01000214 

01 

0 

P00214 

0 

UJp 

#*2 

reject instruction 

9 

A 

00217 

76400000 

76 

1 

00000 

0 

OTai<*INT 

CH 

word ADRS OUTPUT FROM A 



00220 

60400000 

60 

1 

00000 

0 




9 

A 

00221 

01000217 

01 

0 

P00217 

0 

UJP 

*-2 

reject Instruction 


9 

CG222 

77750000 

77 

i 

50000 

3 

CTI 


console typewriter input 

9 

• 

# 

00223 

77760000 

77 

1 

60000 

3 

CTo 


console typewriter output 

9 

9 


A-5 






A-6 


I 


COMPASS-32 C2«l) EXAMPLES 11 / 21/66 PASE in 


SENSING and copy Cl^SS 


00224 

77260000 

77 

0 

60000 

2 

COPY 

CH 

COPY external status AnO imr to a 

00225 

77360000 

77 

0 

60000 

3 

CInS 

CH 

CnPY internal status ano imr to a 

00226 

77267777 

77 

0 

67777 

2 

EXS 

XfCH 

SENSE External status 

00227 

77367777 

77 

0 

67777 

3 

INS 

XtCH 

SENSE internal STATUS 

00230 

77467777 

77 

1 

67777 

0 

ints 

XtCH 

SENSE Interrupt 

00231 

77607777 

77 

1 

07777 

2 

PAuS 

X 

CONTROL CLASS 

PAUSE 

00232 

77507777 

77 

1 

07777 

1 

INCL 

X 

interrupt clear 

00233 

77517777 

77 

1 

17777 

1 

lOcL 

X 

iNPuT/OUTPUT CLFAR 

00234 

77710000 

77 

1 

10000 

3 

sfpf 


SET FLOATING POINT FAULT 

00235 

77720000 

77 

1 

20000 

3 

SBCO 

interrupt class 

SET BCD FAULT 

00236 

77527777 

77 

1 

27777 

1 

SSiM 

X 

SELECTIVELY SET IMR 

00237 

77537777 

77 

1 

37777 

1 

SCIM 

X 

selectively clear imr 

00240 

77730000 

77 

1 

30000 

3 

OInT 


disable interrupt system 

00241 

77740000 

77 

1 

40000 

3 

EInT 


enable interrupt system 

00242 

11425253 

11 

1 

05252 

3 

EChA,S 

R 

R To A 16-00 

00243 

77570000 

77 

1 

70000 

1 

I APR 


interrupt associated processor 


BIT 

CODE 

SSIH 


table of mi 

ASK BI1 

r ASSIGNMENT! 




SCiM 

INCL 

ints 

lOCL 

PAUS 

INS 

00 

0001 

CH 0 

CH 0 

LINE 0 

CH 0 

CH 0 BUSY 

PARITY ERR ON CH X 

01 

0002 

CH 1 

CH 1 

LINE 1 

CH 1 

CH 1 BUSY 

CH X BUSY READING 

02 

0004 

CH 2 

CH 2 

LINE 2 

CH 2 

CH 2 BUSY 

CH X BUSY WRITING 

03 

0010 

CH 3 

CH 3 

LINE 3 

CH 3 

CH 3 BUSY 

EXT REJECT ON CH X 

04 

0020 

CH 4 

CH 4 

LINE 4 

CH 4 

CH 4 BUSY 

NO RESP REJ ON CH X 

05 

0040 

CH 5 

CH 5 

LINE 5 

CH 5 

CH 5 BUSY 

• Illegal mrite 

06 

0100 

CH 6 

CH 6 

LINE 6 

CH 6 

CH 6 BUSY 

CH X PRESET CON/SEL 

07 

0200 

CH 7 

CH 7 

LINE 7 

CH 7 

CH 7 BUSY 

internal INT on CH X 

08 

0400 

real 

TIME CLOCK InT 

TY 

TY busy 

•EXP ovflm fault 

09 

1000 

•EXP 0VFLW/8C0 fault 


NOT FINISH 

•ARITH OVFLW FAULT 

10 

2000 

•ARITH 

OVFLN/OIV fault 


NOT REPEAT 

•DIVIDE FAULT 

11 

4000 

SEARCH/MOVE 

complete 

S/M 

S/M BUSY 

•flCO FAULT 


• internal Faults cleared by sensing 


• 4 

• • 

• • 

• • 

• 

if 
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- COMPASS COOING TECHNIQUES — - - 0 

• 





ASSEMBLY OF constants 0 


00244 

OQOOOOQl 


OGT 

1s2i-2*50i"?? 

# 

00245 

00000002 



0 


00246 

77777775 





00247 

00000050 




# 

00250 

77777700 



0 


00251 

00000001 


DEC 

1«2*S0»-50*99,9B7654 


00252 

00000002 




# 

00253 

00000062 



0 


00254 

77777715 





00255 

00000143 




0 

00256 

03611006 



0 


00257 

00000000 


OECO 

It-lt98f-l.t9e»f9.8 


00260 

00000001 




0 

00261 

77777777 



0 


00262 

77777776 





00263 

00000000 




0 

00264 

00000142 



0 


00265 

57763777 





00266 

77777777 




0 

00267 

20076100 



0 


00270 

00000000 





00271 

20044714 




0 

00272 

63146315 



0 


00273 

44256262 


BCD 

2*MESSAGE 


00274 

21272560 




0 

00275 

442562 


acotc 

SiMES 0 


002753 

62 


acotc 

5•SAGE 


00276 

21272560 




0 

00277 

7730A643 

holmsg 

VFo 

06/77.Hia/HOL*09/OfAi5/HOLMS6tC24/HOLHSG 0 


00300 

00000277 




• 

00301 

00001374 



0 






STORAGE RESERVATION 

0 

00302 


TOM 

BSs 

3 0 


00305 


TOMC 

BSStC 

3 

0 

003053 


TOMCl 

BSStC 

1 ^ 


00306 

20000302 20 0 P00302 0 


loa 

TOM 


00307 

22001424 22 0 P00305 0 


LACH 

tomc ^ 

0 

0 

0 

00310 

22001427 22 0 P00305 3 


LACH 

TOMCl • 

0 













compass-32 (2.1) 


n/7l/bf) PAGt 1? 


AOnPESSiNG modes 


00311 

20000012 

20 

0 00012 

0 


LDa 

10 

• 

00312 

20000010 

20 

0 00010 

0 

symri 

lOa 

lOB 


00313 

20077740 

20 

0 77740 

0 

SYMB2 

LUa 

-378 


00314 

20000001 

20 

0 00001 

0 


LUa 

SYM82-SYM81 • 

00315 

20000025 

20 

0 00025 

0 


LUa 

ADRS 





00025 


AORS 

EQlJ 

258 

• 

relocatable 

00316 

20000317 

20 

0 P00317 

0 


LDa 

TEMP 

• 

0031T 

20000321 

20 

0 POO321 

0 

TEMP 

LOa 

TEMP*2 


00320 

20000317 

20 

0 P00317 

0 


LOa 

TEMPI 





00317 


TEMPI 

EQU 

TEMP 

• 

literals 

A 

00321 

20000361 

20 

0 P00361 

0 


LDa 

aD9 

w 

00322 

2b000362 

25 

0 P00362 

0 


LDaQ 

«209 


00323 

25000364 

25 

0 P00364 

0 


LOaU 

a209. 

• 

00324 

20000360 

20 

0 P00360 

0 


LDa 

*077777777 

00325 

25000366 

25 

0 P00366 

0 


LOaQ 

■207373737373737373 _ 

00326 

20000357 

20 

0 P00357 

0 


LDa 

■HABCO 

m 

00327 

25000370 

25 

0 P00370 

0 


LOaQ 

=2HA8CDEF 

3H 









SPECIAL' characters • 

00330 

20000330 

20 

0 P00330 

0 


LDa 

• 


00331 

20000332 

20 

0 P00332 

0 


LOa 

**l 

# 

00332 

20000330 

20 

0 P00330 

0 


LOA 

♦-2 


00333 

20077777 

20 

0 77777 

0 


LDa 

»* 

• 

interchange of «oro and character addresses 




00334 


riOROADRS 

EQU 

• 

• 




00334 


CHARAOKl 

EQUfC 

* 





003343 


CHARADR2 

EQU*C 

•♦3 

A 

00334 

20000334 

20 

0 P00334 

0 


lDa 

CHARAORl 

w 

00335 

20000334 

20 

0 P00334 

0 


LDa 

CHARA0R2 

truncation ERHOo ^ 

00336 

22001560 

22 

0 P00334 

(j 


LACM 

^ORDADRS 

# 


COmPASS-32 (2.1) 


ll/Pl/66 PAGE 13 


symbol equations 


25252 

ADDRESS 

EQU 

252528 

25252 

M 

EQIJ 

ADDRESS 

052523 

R 

EQU*C 

M*1 

00003 

B 

EQU 

3 

00001 

81 

EQu 

1 

00002 

82 

EQtj 

? 

00003 

83 

Ewu 

3 

052523 

FCA 

EUlttC 

P? 

05254 

LCA 

EQuiC 

R*5 

00014 

K 

EQij 

12 

00077 

V 

EQU 

778 

12345 

Y 

EQt) 

123458 

053523 

FuCa 

EQij.C 

ECA*?56 

052523 

FSCa 

EQU.C 

ECA 

00012 

FL 

EQu 

12B 

00006 

CM 

Eqij 

6 

25252 

F4A 

EQu 


25321 

LmA 

EQu 

M*39 

07777 

X 

EQU 

7777R 

07007 

cc 

EUij 

7O07R 

00022 

FC 

EQij 

228 

00002 

interval 

EQu 

2 

00023 

C 

EQU 

238 






A-8 


COMPASS-32 (2.1) examples 11/91/66 Pa6E 14 


COMPASS ASSEMBLY EpPORS 


A 

00337 

20000000 20 0 00000 

0 


lUa 

2RB 

aOURfss format Error 







common 



• 

c 

00340 

20000005 20 0 00005 

0 


LOA 

5 

attfmpt to assemble info in 



00341 

00000007 



OCT 

7 

the common area 







PHQ 



• 

UA 

00342 

20000343 20 0 P00343 

0 


LUA 

bF.0RnE 

multiply (JEFtNEd symbol 



00343 

OOOOOUOl 


GKUWGt 

OCT 

1 


• 

D 

00344 

00000012 


Gh.ORb£ 

OEC 

lo 



L 

00345 

20000UU5 20 0 00005 

u 

123 

LOa 

5 

location FIElO ERROR 

• 

M 

00346 

00000005 00 0 00005 

0 


LUA» 1 

5 

operation MOnIFlER ERROR 


0 

00347 

00000000 00 0 00000 

0 


Lin 

S 

operation code fRROR 

w 

u 

00350 

20000000 20 0 OUOOO 

0 


LOa 

SAM 

undefined symbol 

# 

T 

00351 

20000352 20 0 P00352 

0 


LOa 

CHAR 

truncation Error 




003523 


ChA« 

Euu*C 

**3 







««««««««»«««««»»«««««««««««»«««««*««««»«***«*«««*«««««»»«««««*•««•«•*«««**•«««« 







literal 

IN A character address 

instruction 

# 


00352 

22001670 22 0 P00356 

0 


LACH 

s012 







************************************** 


• 






HLfiNK characters in SYMBOLS 



L 

00353 

20000353 20 0 P00353 

0 

SYM bOL 

LOa 

« 



U 

00354 

01000000 01 0 00000 

0 


UJP 

SYM RDL 


# 

u 

00355 

01000000 01 0 ooooo 

0 


UJP 

SYMBOL 







»««««• •*»»«»»*««•*•*««««»««•«««««*»»««**«•»««*»«••»••«»« 

• 






end 



• 

literals 







• 

00356 


00000012 


00357 


21222324 

00360 77777777 


00361 


00000011 






A 

00362 


OOOOOUOOOOOOOOll 


00164 

2004440000000000 

W 

00366 


7373737373737373 


00370 

212223242524.2730 



NUMrEH of LINES WITH diagnostics 13 


COmPasS-32 {2*1J 


examples 


11/21/66 PAbE 1 


address 

25252 


P2525? 




adrs 

00025 


P00315 




B 

00003 


Poooon 

POOOOl 

poono4 

P00005 




P00006 

P00007 

POOO10 

POOOll 




P00012 

P00015 

poonib 

P00017 




P0002n 

P00021 

P00022 

P00023 




P00024 

P00025 

P00026 

P00027 




P00030 

P00031 

P00032 

P00033 




P00034 

P00015 

P00042 

P00047 




Pooosn 

P00055 

P00056 

P0006U 




PU0061 

P00073 

P00113 

P00114 




P00117 

P00123 

P00124 

P0012S 




P00126 

P00127 

P00130 

P00131 




P00134 

POOil? 

P00142 

P00145 




PO0146 

P00147 

pooisn 

P00165 

B1 

00001 


P00002 

P00014 

P00n36 


82 

00002 


P00003 

P00013 

P0d037 


B3 

00003 


P00040 

P00041 



C 

00023 


P00151 

POO154 



CC 

07007 


POO166 




CM 

00006 


P00166 

P00170 

P00172 

Pool 75 




P0020n 

P00203 

P002n6 

P00211 




P00214 

P00217 

P00224 

P00225 




P00226 

P00227 

P0023U 


CHAR 

P00352 3 


P00351 




CMARAORl 

P00334 0 


P00334 




CHAHADK2 

P00334 3 


P00335 




FC 

00022 


P00170 




FCA 

05252 3 


P00036 

Poo 1)3 7 

poon40 

P00041 




POOISI 

P00i54 

P00172 

P00206 




P05352 

P05252 



FUCA 

05352 3 


P00157 




FL 

00012 


P00041 

P00157 



FSCA 

05252 3 


P00157 




FWA 

25252 


P002nn 

P00214 



GEDkGE 

P00343 

MULTIPLE-UEFINEU 

P00342 




HULMSG 

P00277 


P00277 

P00277 



internal 

00002 


P0016? 

P00161 



K 

00014 


P00042 

P00131 

P00126 

POOl?^ 

POOliO 

LCA 

05254 n 


POOISI 

P00154 

P00172 

P00206 

LWA 

25321 


H002nn 

Pn02l4 



M 

25252 


Puooon 

poooni 

P00004 

P00005 




Pooon6 

Pooon? 

poonio 

POOOll 




Room? 

pnonis 

poonis 

P00017 




HOdn20 

P001)21 

P00022 

P0U021 




HonoiA 

pnoopb 

poorps 

P00027 




H0003O 

POOO11 

P00032 

P0003 3 




poonu 

ponoib 

P00rs44 

M00045 




P00f)A6 

Pf)0071 

POOO 

HOOO /4 




HOOP ?5 

Pn0il76 

P00077 

P 0 0 1 0 u 




Huom 

P001P2 

POO]n 1 

Pfioi '*4 




H 0 0 ! n s 

»noiofc 

POO’ ^ 

* ‘t 






compass-32 

(2.1) 

examples 




11/21/6^ PAGE 




POOlll 

P00112 

P00113 

P00114 




P0014A 

P00147 

P00150 

P00162 




P00163 

P00164 

P00165 

P05252 




P25252 

P25321 



R 

05252 3 


P00002 

P00003 

P00013 

P00014 




P00242 

P05252 

P05254 


SAM 

00000 

undefined 

P003S0 




SYM 

00000 

UNDEFINED 

P00354 




SYM81 

P00312 


P00314 




SYMB2 

P00313 


P00314 




SYMBOL 

00000 

undefined 

P00355 




TEMP 

P00317 


P00316 

P00317 

P00317 


TEMPI 

P00317 


P00320 




TOM 

P00302 


P00306 




TOMC 

P00305 


P00307 




TOMCl 

P00305 3 


P00310 




V 

00077 


P00051 

P00052 

P00053 

P00054 




P00055 

P00056 



WOHOAORS 

P00334 


P00336 




X 

07777 


P00226 

P00227 

P00230 

P00231 




P00232 

P00233 

P00236 

P00237 

Y 

12345 


P00115 

P00U6 

P00117 

P00120 




P00121 

P00122 

P00123 

P00124 




POO 125 

P00132 

P00133 

P00134 




P0Q135 

PQ0136 

P00137 

P00140 




P00141 

P00145 

PO0142 

P00143 

P00144 

literal 

P00366 

7373737373737373 

P0032S 




literal 

P00360 

77777777 

P00324 




literal 

P00362 

OOOOOOOOOOOOOOII 

P00322 




literal 

P00361 

OOOOOOll 

P00321 




literal 

P00356 

00000012 

P00352 




literal 

P00364 

2004440000000000 

P00323 




literal 

P00370 

2122232425262730 

P00327 




literal 

P00357 

21222324 

P00326 




SYMBOLS not 

referenced 






8CD80XS EXT 

FDP80XS EXT 






compass- 32 t2.1) example 20 (AVErASEj ll/?l/66 PAGE 


entry-point symbols 
start 00000 


length of subprogram 
length of common 
length of data 


00016 

00000 

00000 




COMPASS-32 (2.1) EaAMPlE 20 (AVERAGE) 11/21/66 PAGE 2 

THIS program i^ilL compute THE AVERAGE oF ThREE- POSITIVE NUM8ERS 









entry 

START 


00000 

01077777 

01 

0 

77777 

0 

start 

UJP 

** 

EXIT TO monitor PROGRAM 

00001 

20000011 

20 

0 

POOOll 

0 


LOa 

NUMB 1 

LOAD FIRST NUMBER INTO A 

00002 

30000012 

30 

0 

P00012 

0 


ADa 

NUMB 2 

AUD SECOND number 

00003 

30000013 

30 

0 

P00013 

0 


AOa 

NUM83 

ADD THIRD number 

00004 

13077747 

13 

0 

77747 

0 


Shaw 

-24 

convert to a 48 bit VALUE 

00005 

51000014 

51 

0 

P00014 

0 


OVA 

THREE 

DIVIDE BY three 

00006 

40000015 

40 

0 

P00015 

0 


STa 

AVG 

store RESULT 

00007 

77770000 

77 

1 

70000 

3 


UCs 


STOP 

00010 

OlOOOOOO 

01 

0 

POOOOO 

0 


UJP 

START 

GO TO EXIT On restart 

00011 


00000100 


NUMRI 

OCT 

100 

constant (loo OCTAL) 

00012 


OOOOOOll 


NUMB2 

OEc 

9 

constant (9 OECTMAL. 11 OCTAL) 

00013 


00000020 


NUMR3 

OCT 

20 

constant (20 OCTAL) 

00014 


00000003 


three 

OEc 

3 

CONSTANT (3) 

00015 






AVG 

BSS 

1 

reserved location for result 








end 

START 



number of lines .rfITH DIAGNOSTICS 0 


Compass-32 (2.n 


example 20 (AVERAGE) 


i1/21/66 PAGE 1 


AVG 

P00015 

P000n6 

NUMbl 

POOOll 

POOOOl 

NUMa2 

P00012 

P0Q002 

NUMH3 

P00013 

POOOQ3 

start 

POOOOO 

POOOlO 

three 

P00014 

P00005 






compass-32 (2.1) 


ENTRY-POINT SYMBOLS 

start 00000 


LENGTH OF subprogram 00045 
LENGTH OF COMMON 00000 
LENGTH OF DATA 00000 


example 19A {CR2PR) 


I1/21/66 PAGE 1 


example 19A (Cr2PR) PAGE 2 

entry start 

THIS program will READ ONE HOLLERITH CaRO aND COPY IT ON THE LINE PRINTER 


00000 

01077777 

01 

0 

77777 

0 

START 

UUP 

•* 


OOOOl 

77012000 

77 

0 

12000 

0 

REPEAT 

COn 

2000B.1 

ESTABLISH CONNErTION TO CR 

00002 

01000001 

01 

0 

POOOOl 

0 


UJP 

*-l 

REJECT INSTRUCTION 

00003 

74000045 

74 

0 

P00045 

0 


INPW 

UBUFt0UF*2O 

initiate INPUT OF ONE CARO 

00004 

10000021 

10 

0 

P00021 

0 





00005 

01000003 

01 

0 

P00003 

0 


UJP 

*-2 

rejfct instruction 

00006 

77310002 

77 

0 

10002 

3 


INS 

2.1 

SENSE TO SEE IF CHANNEL 1 IS BUSY 

00007 

01000006 

01 

0 

P00006 

0 


UJP 

*-l 

BUSY - THEN kEEo CHECKING 

00010 

77013000 

77 

0 

13000 

0 


COn 

3000R.1 

NOT BUSY - then CONNECT TO PR 

00011 

01000010 

01 

0 

POOOlO 

0 


UJP 

*-l 

reject INSTRUCTION 

00012 

76000045 

76 

0 

P00045 

0 


outm 

1.8UF,0UF*2O 

initiate OUTPUT OPERATION 

00013 

10000021 

10 

0 

P00021 

0 





00014 

01000012 

01 

0 

PO0012 

0 


UJP 

*-2 

rejfct INSTRUCTION 

00015 

77310004 

77 

0 

10004 

3 


INS 

4.1 

SENSE TO SEE IF CHANNEL 1 IS BUSY 

00016 

01000015 

01 

0 

P00015 

0 


UJP 

*-l 

BUSY - THEN keep CHECKING 

00017 

77770000 

77 

1 

70000 

3 


UCS 


NOT BUSY - Then stop 

00020 

OlOOOOOl 

01 

0 

POOOOl 

0 


UJP 

REPEAT 

repeat on restart 

00021 






BUF 

8SS 

20 









end 

START 



number of LINES i^ITh DIAGNOSTICS 






A-12 


COMPASS-32 

(2.1) 

example 19A (CR2PR) 


li/?l/b6 page 

BUF 

P00021 

P00003 

P00003 

P00012 P00012 

REPEAT 

POOOOl 

P00020 



SYMBOLS NOT 

REFERENCED 




•start pooooo 







COMPASS-32 (2*1) 


example 21 (CODE) 


ll/?l/66 PASE t 


ENTRY-POINT SYMBOLS 

IN.OuT 00000 


length of subprogram OOOU 

length of common 00000 

LENGTH OF DATA 00000 






A-13 


# 


COMPASS-32 (2,1) example 21 (CODE» ll/Pl/66 PAGE 2 

ENyRr IN,OUT 

THIS prooham will hang in a loop until the selective jump keys are 

SET to a CoOE of 35 OCTAL. PROGRAM REPEATS ON RESTART. 


00000 

01077777 

01 

0 

77777 

0 

IN.OUT 

UJp 

»« 




00001 

00100003 

00 

0 

P00003 

1 

LOOP 

SJi 

*♦2 

TEST 

BIT 

0 

00002 

01000001 

01 

0 

POOOOl 

0 


UJp 

LOOP 




00003 

00200001 

00 

0 

POOOOl 

2 


SJ2 

LOOP 

test 

BIT 

1 

00004 

00300006 

00 

0 

P00006 

3 


SJ3 

*♦2 

TEST 

BIT 

2 

00005 

01000001 

01 

0 

POOOOl 

0 


UJp 

LOOP 




00006 

00400010 

00 

1 

POOOlO 

0 


SJ4 

♦♦2 

TEST 

BIT 

3 

00007 

01000001 

01 

0 

POOOOl 

0 


UJp 

LOOP 




00010 

00500012 

00 

1 

P00012 

1 


SJ5 

•♦2 

TEST 

BIT 

4 

00011 

01000001 

01 

0 

POOOOl 

0 


UJp 

LOOP 




00012 

00600001 

00 

1 

POOOOl 

2 


SJ6 

LOOP 

TEST 

BIT 

5 

00013 

OOOOOOOl 

00 

0 

POOOOl 

0 


HLT 

IN.OUT^I 

STOP 




end in,Out 


number of lines with diagnostics 0 


m 


COHPASS-32 (2.1) 


example 21 (CODE) 


n/21/66 Page i 


IN.OUT POOOOO 

LOOP POOOOl 


P00013 

P00002 

P00003 

P00005 

P00007 

POOOll 

P00012 




e 






COMPASS-32 


(2.1) 


example. 22 (MEa.TEST) 


ll/Zl/bb PAGE 


I 


ENTRY-POINT SYMBOLS 

START 00000 


LENGTH OF Subprogram 
LENGTH OF COMMON 
LENGTH OF DATA 


compass-32 (2.1) 


OOOU 

00000 

00000 


example 22 (MEtt.TEST) ll/?l/66 PAGE 2 

entry start 

THIS program tyiLL COUNT THE NUMBER OF E^EN LOCATIONS IN MEMORY (BK) 
i^ITH 35 IN CHARACTER POSITION 2, 


00000 

01077777 

01 

0 

77777 

0 

start 

UJP 

»» 


00001 

14300000 

1* 

0 

00000 

3 


ENI 

0»3 

Clear Counter (r3) 

00002 

1*117776 

14 

0 

17776 

1 


ENi 

1T776R.1 

SET 81 TO 17776B 

00003 

14603500 

1* 

1 

03500 

2 


ENft 

3500fl 

SET SEARCH pattern IN A 

00004 

14?o7?00 

14 

1 

07700 

3 


ENq 


SET search Mask in u 

00005 

06200000 

06 

0 

00000 

2 

REEnTER 

MEq 

n ♦ J; 

*** search *** 

00006 

OlOOOOll 

01 

0 

POOOU 

0 


UJP 

STOP 

** not found •* then STOP 

00007 

15300001 

15 

0 

00001 

3 


INI 

1.3 

•• FOUND ** then increase COUNT 

00010 

01000005 

01 

0 

P00005 

0 


UJP 

REENTER 

and continue search 

OOOU 

77770000 

77 

1 

70000 

3 

stop 

UCS 


display results in B3 

00012 

00100000 

00 

0 

POOOOO 

1 


SJl 

START 

exit if JUMP KEY 1 IS SET 

00013 

01000001 

01 

0 

POOOOl 

0 


UJP 

end 

START*1 

START 

otherwise repeat 


# 


number of lines with DIAGNOSTICS 


0 





COMPASS-32 

(2.1) 

example 22 (MEO.TEST) 


ll/?l/6fc 

REENTER 

P00005 

POOOlO 



start 

POOOOO 

P00012 

P00013 


STOP 

POOOll 

P00006 




COMPASS-32 (2.1) 


example 23 (TY.oOT) 




entry-point symbols 

TY.OUT 00000 


LENGTH OF subprogram 
LENGTH OF COMMON 
LENGTH OF DATA 


00010 

00000 

00000 


PAGE 1 


PAGE ) 






A-i6 


CumPASS-32 (2,1) example 23 (TY.OUT) \\/?l/bb PAGE ? 

EMTPY TY.OUT 

THIS IS A CtOSEO subroutine F0« TYPING MESSAGE ON ThE rONSOLE TY, 

calling sequence ECHa FCA (FIRST Char adrs of MSQE) 

ENU NUMB CHARS (LENGTH OF MESSAGE) 

RTJ TY.OUT 

next Instruction 

note TY.OUT must BE DECLARED fXTERNAL (EXT TY.OUT) 


ooooo 

01077777 

01 

0 

77777 

0 TY.OUT 

UJP 

»• 


00001 

77600400 

77 

1 

00400 

2 

PAijS 

4000 

IS TY Currently busy 

00002 

01000001 

01 

0 

POOOOl 

0 

UUd 

*-l 

YES - Then keep checking 

00003 

53420023 

53 

1 

20023 

0 

TAm 

238 

NO • then place FCA IN REG 233 

00004 

53040000 

53 

0 

40000 

0 

AUa 


form LCa*1 

00005 

53420033 

53 

1 

20033 

0 

TAm 

33B 

Place lca*i in oeg 33b 

00006 

77760000 

77 

1 

60000 

3 

CTo 


INITIATE OUTPUT 

00007 

01000000 

01 

0 

POOOOO 

0 

UJP 

TY.OUT 

RETURN TO USFR 


end 


CUMPASS-32 (2.1) 


number of lines with DIAGNOSTICS 0 


example 23 (TY.OUT) 


ll/Pl/66 PAGE 1 


TY.OUT POOOOO 


P00007 






A-17 


COMPASS-32 (2,1) 


example 24 (OEMol 


U/PI/66 PASE 1 


ENTRY-POINT STM80LS 

START 00000 


LENGTH OF SUBPROGRAM 00614 
LENGTH UF COMMON 00000 
LENGTH OF DATA 00000 


m 


COHPASS-32 

(2.1) example 24 

(DEMO) 

11/71/66 PAGE 





entry 

START 

00000 

01077777 01 0 77777 

0 

start 

UJP 

»« 




the FOLLOWING 

INSTRUCTIONS WILL INITIATE An OUTPUT TO THE CONSOLE TY 

00001 

11000034 11 0 P00007 

0 


EChA 

MSG FIRST Char aoRS to a 

00002 

53420023 53 1 20023 

0 


TAm 

238 then to REG FILF LOC 238 

00003 

11003060 11 0 P00614 

0 


EChA 

hsgend last char adrs to a 

00004 

53420033 53 1 20033 

0 


TAm 

330 then to REG FiLF LOC 338 

00005 

77760000 77 1 60000 

3 


CTo 

INITIATE TYPF OilT 

00006 

00000000 00 0 POOOOO 

0 


mlt 

START exit back TO SCOPE ON RESTART 




FOLLOWING IS ' 

THE MESSAGE 

00007 

31602144 


MSG 

bcd.c 

40.1 AM A CONTROL DATA 3?00 COMPUTER. 1 AM 

00010 

60216023 





00011 

46456351 





00012 

46436024 





00013 

21632160 





00014 

03020000 





00015 

60234644 





00016 

47646325 





00017 

51336031 





00020 

60214460 





00021 

77575757 



OCt 

77575757 

00022 

21602231 



BCOfC 

44.A BINARY. FIXED WoRD LENGTH. STORED PROGRAM, 

00023 

45215170 





00024 

73602631 





00025 

67252460 





00026 

66465124 





00027 

60432545 





00030 

27633073 





00031 

60626346 





00032 

51252460 





00033 

47514627 





00034 

51214473 





00035 

77575757 



OCt 

77575757 

00036 

24312731 



BCotC 

16.digital computer 

00037 

63214360 





00040 

23464447 





00041 

64632551 





00042 

77775757 



OCt 

77775757 

00043 

63302562 



0Co»C 

28.these are my specifications 

00044 

25602151 





00045 

25604470 





00046 

60624725 





00047 

23312631 





00050 

23216331 





00051 

46456260 





00052 

77775757 



OCt 

77775757 

00053 

01330205 



0CO*C 

36.1,25 MICRO SECOND MEMORY CYCLE TI-^E 

00054 

60443123 





00055 

51466062 
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COMPASS-32 (2,1) 


example 24 (DEMO) 

11/21/66 PAGE 

00056 

25234645 


00057 

24604425 



00060 

44465170 



00061 

60237023 



00062 

43256063 



00063 

31442560 



00064 

77575757 

OCT 

77575757 

00065 

10427360 

8Cn»C 

40.0K, 16K. OR 32K rfOHDS OF CORF STORAGE 

00066 

01064273 


00067 

60465160 



00070 

03024260 



00071 

60664651 



00072 

24626046 



00073 

26602346 



00074 

51256062 



00075 

63465121 



00076 

27256060 



00077 

77575757 

OCT 

77575757 

00100 

02046022 

ecn.c 

20.24 BIT WORD LEnGTm 

00101 

31636066 



00102 

46512460 



00103 

43254527 



00104 

63306060 



00105 

77575757 

OCT 

77575757 

00106 

03603145 

eco.c 

20.3 INDEX REGISTERS 

00107 

24256760 



OUllO 

51252731 



OOlll 

62632551 



00112 

62606060 



00113 

77575757 

OCT 

77575757 

00114 

44644363 

BCOtC 

32.MULTI-LEVEL INOIRfCT ADDRESSING 

00115 

31404325 


00116 

65254360 



00117 

31452431 



00120 

51252363 



00121 

60212424 



00122 

51255262 



00123 

31452760 



00124 

77575757 

OCt 

77575757 

00125 

23302151 

8CD.C 

32.CHARACTER HANDLING INSTRUCTIONS 

00126 

21236325 



00127 

51603021 



00130 

45244331 



00131 

45276031 



00132 

45626351 



00133 

64236331 



00134 

46456260 



00135 

77575757 

OCT 

77575757 

00136 

22642626 

BCOtC 

4fl,BUFFERED character SEaRCH AND MOVE OPERATIONS 

00137 

25512524 



00140 

60233021 



00141 

51212J63 



00142 

25516062 



00143 

25215123 




compass-32 (2,1) 


example 24 (DEMO) 

00144 

30002145 


00145 

24604446 


00146 

65256046 


00147 

47255121 


00150 

63314645 


00151 

62606060 


00152 

77575757 

OCT 

00153 

2346456? 

BCD.C 

00154 

46432560 


00155 

63704725 


00156 

66513163 


00157 

25516060 


00160 

77575757 

oct 

00161 

51252143 

0CD.C 

00162 

60633144 


00163 

25602343 


00164 

46234260 


00165 

77775757 

OCT 

00166 

62632145 

BCmc 

00167 

24215124 


00170 

60215131 


00171 

63304425 


00172 

63312360 


00173 

23214721 


00174 

22314331 


00175 

63312562 


00176 

77776060 

OCl 

00177 

02046022 

8CD.C 

00200 

31636060 


00201 

21242473 


00202 

60626422 


00203 

73604464 


00204 

43636020 


00205 

60243165 


00206 

7T576060 

OCT 

00207 

04106022 

BCOtC 

00210 

31636060 


00211 

21242460 


00212 

20606264 


00213 

22606060 


00214 

77775757 

OCT 

00215 

46476331 

BCD.C 

00216 

46452143 


00217 

60215131 


00220 

63304425 


00221 

63312360 


00222 

23214721 


00223 

22314331 


00224 

63312562 


00225 

77776060 

OCT 

00226 

26476124 

HCn.c 

00227 

47604721 


00230 

23422127 


00231 

25606060 



ll/?l/66 PASE 4 


7757S75? 

;?0»COvS0uE TyPfi^HITEW 


7757S7S7 

16*REAl ti*^e clock 


7777S757 

3?,standard ahITHMETtC CAPflHiLlTifS 


77776060 

?«♦?* BIT AUO» SU3» HULT ♦ DIV 


77576060 

20,48 BIT add * SOS 


77775757 

32.OPTIONAL ARlTHyETiC CAPABILITIES 


77776060 

S?,FP/DP package PLOaTING P0I»iT iDD. SUB, mUlT ♦ 


m 






C0MPASS«32 


00232 

60602643 

00233 

46216331 

00234 

45276047 

00235 

46314563 

00236 

60212424 

00237 

73606264 

00240 

22736044 

00241 

64436360 

00242 

20606060 

00243 

77576060 

00244 

60606060 

00245 

60606060 

00246 

60606060 

00247 

60606060 

00250 

60602431 

00251 

65312425 

00252 

60214524 

00253 

60263167 

00254 

25246047 

00255 

46314563 

00256 

60041060 

00257 

22316360 

00260 

77576060 

00261 

60606060 

00262 

60606060 

00263 

60606060 

00264 

60606060 

00265 

60604464 

00266 

43636020 

00267 

60243165 

00270 

77576060 

00271 

22232460 

00272 

47212342 

00273 

21272560 

00274 

60606060 

00275 

60602231 

00276 

45215170 

00277 

60234624 

00300 

25246024 

00301 

25233144 

00302 

21436060 

00303 

21242460 

00304 

20606264 

00305 

22606060 

00306 

77775757 

00307 

31454764 

00310 

63614664 

00311 

63476463 

00312 

60232147 

00313 

21223143 

00314 

31633125 

00315 

62606060 

00316 

77776060 

00317 

02401060 


example 24 (DEMO) 


OCT 

BCD«C 


OCT 

BCOtC 


OCT 

8CD*C 


OCT 

BC0*C 


OCT 

BCOtC 


ll/?l/66 PAGE 5 


77576060 

48f DIVIDE AND FlXEn POINT 48 BIT 


77576060 

28i mult ♦ OIV 


/7576060 

52#BCD package BINARY COOED DECIMAL ADO ♦ SUB 


7777S757 

28iI nput/output capabilities 


77776060 

?nt2-B DATA Channels 


# 


COMPASS*32 


00320 

24216321 

00321 

60233021 

00322 

45452543 

00323 

62606060 

00324 

77576060 

00325 

01401060 

00326 

25506431 

00327 

47442545 

00330 

63602346 

00331 

45635146 

00332 

43432551 

00333 

62604725 

00334 

51602421 

00335 

63216023 

00336 

30214545 

00337 

25436060 

00340 

77776060 

00341 

60606060 

00342 

21652131 

00343 

43212243 

00344 

25602550 

00345 

64314744 

00346 

25456360 

00347 

60606060 

00350 

60606060 

00351 

60606247 

00352 

25252462 

00353 

77576060 

00354 

60606060 

00355 

60604421 

00356 

27452563 

00357 

31236063 

00360 

21472562 

00361 

60606060 

00362 

60606060 

00363 

60606060 

00364 

60073305 

00365 

42236040 

00366 

60010200 

00367 

42236060 

00370 

77576060 

00371 

60606060 

00372 

60602321 

00373 

51246051 

00374 

25212425 

00375 

51606060 

00376 

60606060 

00377 

60606060 

00400 

60606060 

00401 

60010200 

00402 

00602321 

00403 

51246261 

00404 

44314560 

00405 

77576060 


example 24 (DEMOl 


OCT 

BCOtC 


OCT 

BCOtC 


OCT 

BCOtC 


OCT 

BCOtC 


OCT 


ll/Pl/66 PAGE 6 


77576060 

44,1-8 equipment controllers PER DATA CHANNEL 


77776060 

40, available equipment speeds 


77576060 

48t magnetic tapes 7,5KC - 120KC 


77576060 

48t CARD reader 1200 CARDS/MIN 


77576060 
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00406 

60606060 

bcd*c 

4Rf CARD PUNCHES 

00407 

60602321 



00410 

51246047 



00411 

64452330 



00412 

25626060 



00413 

60606060 



00414 

60606001 



00415 

05006040 



00416 

60020500 



00417 

60232151 



00420 

24626144 



00421 

31456060 



00422 

77576060 

OCT 

77576060 

00423 

60606060 

BCOvC 

48, PAPER TAPE STA 

00424 

60604721 



00425 

47255160 



00426 

63214725 



00427 

60626321 



00430 

63314645 



00431 

62606003 



00432 

05006040 



00433 

60010000 



00434 

00602347 



00435 

44606051 



00436 

25212060 



00437 

77576060 

OCT 

77576060 

00440 

60606060 

ecoic 

48, 

00441 

60606060 



00442 

60606060 



00443 

60606060 



00444 

60606060 



00445 

60606060 



00446 

60606060 



00447 

60606060 



00450 

60600101 



00451 

00602347 



00452 

44606047 



00453 

64452330 



00454 

77576060 

OCT 

77576060 

00455 

60606060 

bcd»c 

48, line printers 

00456 

60604331 



00457 

45256047 



00460 

51314563 



00461 

25516260 



00462 

60606060 



00463 

60606001 



00464 

05006040 



00465 

60010000 



00466 

00604331 



00467 

45256261 



00470 

44314560 



00471 

77576060 

oct 

77576060 

00472 

60606060 

8CD*C 

52, DISC PACKS 

00473 

60602431 




COMPASS-32 (2.1) 


example 24 (DEMO) 


00474 

62236047 



00475 

21234262 



00476 

60606060 



00477 

60606060 



00500 

60606011 



00501 

07604431 



00502 

43433160 



00603 

62252360 



00504 

21652760 



00505 

21232325 



00506 

62626060 



00507 

77576060 

OCT 

77576060 

00510 

60606060 

8C0*C 

48, 

00511 

60606060 



00512 

60606060 



00513 

60606060 



00514 

60606060 



00515 

60606060 



00516 

60606U07 



00517 

01426023 



00520 

30215161 



00521 

62252360 



00522 

21652760 



00523 

67262551 



00524 

77576060 

OCT 

77576060 

00525 

60606O6O 

HCO.C 

52, DRUM STORAGF 

00526 

60602451 



00527 

64446062 



00530 

63465121 



00531 

27256060 



00532 

60606060 



00533 

60606001 



00534 

07604431 



00535 

43433160 



00536 

62252360 



00537 

21652760 



00540 

21232325 



00541 

62626060 



00542 

77576060 

OCt 

77576060 

00543 

60606060 

8CO.C 

48, 

00544 

60606060 



00545 

60606060 



00546 

60606060 



00547 

60606060 



00550 

02050042 



00551 

60406002 



00552 

44602330 



00553 

21516162 



00554 

25236024 



00555 

21632160 



00556 

67262551 



00557 

77576060 

uct 

77576060 

00560 

60606060 

HCn.c 

16, plotters 

00561 

6060474.1 




ll/Pl/66 PAGE 7 
150 - ?50 CARDS/HIN 


350 - 1000 CPS read 


no CPS PUNCH 


150 • 1000 LINES/MIN 


97 mILLI sec AVG ACCESS 


n/Pl/66 PAGE « 


71K char/sec AVG XFER 


17 MiLLi SEC AVG ACCESS 


2M CHA9/SeC DATA XFER 
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00562 

46636325 




00563 

51626060 




00564 

77576060 

OCt 

77576060 


00565 

60606060 

BCo*C 

20» 

PAGE reader 

00566 

60604721 




00567 

27256051 




00570 

25212425 




00571 

51606060 




00572 

77576060 

OCt 

77576060 


00573 

60606060 

eCDtc 

?4, 

CRT DISPLAY UNITS 

00574 

60602351 




00575 

63602431 




00576 

62474321 




00577 

70606445 




00600 

31636260 




00601 

77576060 

OCt 

77576060 


00602 

60606060 

BCOiC 

40f 

and many other SPECIALIZED DEVICES 

00603 

60602145 




00604 

24604421 




00605 

45706046 




00606 

63302551 




00607 

60624725 




00610 

23312143 




00611 

31712524 




00612 

60242565 




00613 

31232562 





00614 

MSGENO EOUfC 

* 




ENo 

START 



NUMgER OF LINES jrfiTH DIAGNOSTICS 0 


m 


COMPaSS-32 (2»1) 


example 24 (DEMO) 


PAGE 1 


MSG 

MSGENO 

start 


P00007 
P00614 0 
POOOOO 


ROOOOl 

P00003 

P00006 






COHFASS-32 (2»1) 


example 25 <MtD«IvER) 


n/21/66 PAGE I 


ENTRY-POINT SYMBOLS 

HTORIVER 00000 


00101 

00000 

00000 


length of subprogram 
length of common 
length of data 


COMPASS-32 (2,1) 


# 


example 25 (MtOHIVER) 11/21/66 PAGE 2 

entry mtdriver 

THIS subprogram IS AN I/O DRIVER DESIGNED TO HANDLE ALL MAG TAPE 

operations, use of this driver will greatly reduce the amount of effort 
required On the PROGRAMMER'S PART WHEN WORKING WITH MAG TAPE. HE NEED 
NOT even be concerned WITH THE EQUIPMENT CONFIGURATION OF THE PARTICULAR 
MACHINE IN USE, SINCE THIS IS HANDLED rY MTDRIVER* 

——-—- calling sequence ----— 

1, SET PARAMETERS INTO A ♦ Q 

JA) A a TAPE UNIT NUMBER CO-T) 

(B) Q 23-18 * function CODE 

(C> Q U-00 = 8UEFER FWA (NEEDED FOR I/O REQUEST ONLY! 

2. RTJ TO MTDRIvER (MtDRIvER MyST BE DECLARED EXTERNAL) 

-- OPERATIONS available ———— 

OPERATION 

1, READ 30 WUS IN BCD (l20 CHARS) 

2, READ 40 WOS IN BInAHY 

3, WRITE 30 WDS In 9c0 (120 CHARS) 

4, WRITE 40 WDS IN BlNARy 

5, rewind 
(S. unload 
7 , backspace 
9, SF.ARCH FILE FORWARD 
R. SEARCH FIlE BACKWARD 

in, WRITE FILE mark 
11. SKIP SAD SPOT 

- — OM return — 

1. B REGS ARE UNCHANGED. 

2. IF REQUEST WAS l/n (Fr 1-4). ThE OPERATION wiLL BE 

complete. 

3. A 11-00 * STATUS FROM THE TAPE AT ENU OF OPERATION 

IF request mas I/O (FC 1-4). 

4. A IS meaningless if not I/T request. 

5. Q IS meaningless, 

...-ERROR procedures- 

1, IF TAPE UNIT IS Found =eaoyf a diagnostic 
WILL BE TYPED (REaDY -T X), ^»ROGRaM WILL CONTINUE 
WHEN UNIT IS ready. 

2. ALL REJECTS WILL LOOP. 


FUNCTION CODE (OCTAL) 

01 

02 

03 

04 

10 

11 

12 

13 

14 

15 

16 














CUMPASS-i2 

UOOOO 


00001 

00002 

00003 

00004 

00005 

00006 

00007 

00010 

ooon 

00012 

00013 

00014 

00015 

00016 

00017 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00030 

00031 

00032 


compass-32 


00033 

00034 


00035 

00036 

00037 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00050 


00051 

00052 

00053 

00054 

00055 

00056 


00057 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 


(2.1) EAAMPLt 25 (MTDRIVER) 


01077777 

01 

0 

77777 

0 

MTURiVEH DJP 

** 






******* INillALIZiNG PROCEDURE 

42000157 

42 

0 

P00033 

3 

SACH 

C0NNECT*3 

42000371 

42 

0 

P00076 

1 

SACH 

HDyMSG*9 

14600000 

14 

1 

00000 

2 

ENA 

0 

13000006 

13 

0 

00006 

0 

SHAQ 

6 

42000400 

42 

0 

POOlOO 

0 

SACH 

FC 

05600017 

05 

1 

00017 

2 

ASG 

17B 

05600010 

05 

1 

00010 

2 

ASG 

108 

01000013 

01 

0 

P00013 

0 

UJP 

INPOUT 

42000247 

42 

0 

POOOSl 

3 

SACH 

SELECT*3 

01000033 

01 

0 

P00033 

0 

UJP 

connect 

05600005 

05 

1 

00005 

2 

INPOuT ASG 

5 

05600001 

05 

1 

00001 

2 

ASG 

1 

00000015 

00 

0 

P00015 

U 

HLT 

« 

12000005 

12 

0 

00005 

0 

SHA 

5 

13000022 

13 

0 

< 00022 

0 

SHAQ 

18 

14700002 

14 

1 

00002 

3 

END 

2 

03300023 

03 

0 

P00023 

3 

A^JfLT 

**2 

14700001 

14 

1 

00001 

3 

ENU 

1 

43000247 

43 

0 

POOOSl 

3 

SUCH 

SELECT*3 

44000066 

44 

0 

P00066 

0 

SwA 

INPUT*1 

44000062 

44 

0 

P00062 

0 

SWA 

OUTPUT*! 

15600036 

15 

1 

00036 

2 

INA 

30 

03300031 

03 

0 

P00031 

3 

AZJfLT 

*♦2 

15600012 

15 

1 

00012 

2 

INA 

10 

44000065 

44 

0 

P00065 

0 

SNA 

INPUT 

44000061 

44 

0 

P00061 

0 

SNA 

OUTPUT 


n/?i /66 Page 3 

LINKAGE BACK TO USER 


establish connect code 

SET TAPE NO. IN READY MESSAGE # 

PLACE FUNCTION CODE 

IN A 5-0. ^ 

Save function code 

IS THIS an 

I/O REQUEST • 

YES - Then jump 

NO - then set select code and • 

GO TO connect procedure 

test to see if Function code is • 

legal. 

BLIND halt on 1LLE(>AL CODE 
position fc and fwa in a 

A 14-00 * FKA of USER#S BUFFER _ 

A 23 ■ 1 IF BCD request .0 IF BINARY • 

BCD select code TO Q ♦ 

is request BCD • 

NO - then binary code to Q 

PLACE SELECTED CODE IN SEL INSTRUCTION ^ 

SET FWA IN InPUT/OUTPUT 

instructions 

FORM BCD L«A*1 • 

IS requestbcd 

no - then form binary LWA+l _ 

SET LWA*1 In input/output • 

INSTRUCTIONS 


(2.1> EAAMPlE 25 (MfDRlVER) ll/?l/66 PAGE 4 

«•»«*»« connect procedure *«•*«*** 


77001000 

77 

0 

01000 

0 

connect 

CON 

concooe.ch 

CONNECT TO SPECIFIED MAG TAPE 

01000033 

01 

0 

P00033 

0 


UJP 

*-l 







«»»«««« 

TEsi For ready ******** 


77200001 

77 

0 

00001 

2 


EXs 

0001.CH 

IS THE CONNECTED UNIT READY 

01000051 

01 

0 

P00051 

0 


UJP 

SELECT 

YES - Then go to select procedure 

77600400 

77 

1 

00400 

2 


PAUS 

400B 

NO - then type diagnostic 

01000037 

01 

0 

P00037 

0 


UJP 

*-l 

wait for TY not busy 

11000360 

11 

0 

P00074 

0 


ECHA 

rdymsg 


53420023 

53 

1 

20023 

0 


TAM 

23B 

• 

15600013 

15 

1 

00013 

2 


INA 

11 

- initiate TY output 

53420033 

53 

1 

20033 

0 


TAM 

336 

• 

77760000 

77 

1 

60000 

3 


CTO 



77200001 

77 

0 

00001 

2 


EXS 

0001.CH 


01000051 

01 

0 

P00051 

0 


UJP 

**2 

- LOOP UNTIL ready 

01000046 

01 

0 

P00046 

0 


UJP 

*-2 

- 






«**»•»« 

SELECT 

PROCEDURE ********* 


77100000 

77 

0 

00000 

1 

SELECT 

SEU 

0000.CH 

initiate NON-I/0 operation or 

01000051 

01 

0 

P00051 

0 


UJP 

*-l 

SELECT MODE FOR I/O OPERATION 

22000400 

22 

0 

POOlOO 

0 


lach 

FC 

function CODE To A 

05600006 

05 

1 

00006 

2 


ASG 

6 

IS THIS AN I/O request 

01000055 

01 

0 

P00055 

0 


UJP 

» 

no - THEN GO TO REAO/WRITE PROCEDURE 

01000072 

01 

0 

POO072 

0 


UJP 

EXIT 

YES - then go to EXIT 






«•»«»*« 

reau/nhite procedure ******** 


05600003 

05 

1 

00003 

2 


ASg 

3 

IS THIS A read request 

01000065 

01 

0 

P00065 

0 


UJP 

INPUT 

YES - GO TO INPUT INSTRUCTION 

76077777 

76 

0 

77777 

0 

OUTPUT 

OUTN 

Cri.**.** 

NO - Then initiate output 

0007?7r7 

00 

0 

77777 

0 





01000061 

01 

0 

P00061 

0 


UJP 

*-2 

LOOP on reject 

01000070 

01 

0 

P00070 

0 


UJP 

wait 

60 TO wait before exit 

74077777 

74 

0 

77777 

0 

INPUT 

INHw 

CH.**,** 

initiate input 

00077777 

00 

0 

77777 

0 





01000065 

01 

0 

P00065 

0 


UJP 

*-2 

loop on reject 






A-24 


COMPaSS-32 

(2*1) 



example 

25 (MTORIVEP) 

ll/?l/66 








••• NAir 

FOR END OF OPERATION •* 


00070 

77200002 

77 

0 

00002 

2 

WAIT 

EXS 

0002»CH 

IS UNIT still BUSY 

00071 

01000070 

01 

0 

P00070 

0 


UJP 

•-1 

YES - then loop 







««•* 

*•* EXIT 



00072 

77200000 

77 

0 

00000 

2 

EXIT 

COPT 

CM 


00073 

01000000 

01 

0 

POOOOO 

0 


UJP 

MTORIVER 

return to user 





MISCELLANEOUS ♦****♦♦* 


00074 

51252124 

RUYMSG 

HCUtC 

10.ready MT X 


00075 

70604463 





00076 

6067 





00077 

77000000 


VFU 

06/77 


00100 


FC 

BSS*C 

1 





SYMBOL 

eouattons ******** 



00000 

CM 

EBU 

0 

this driver may be altered to fit any 


01000 

CONCOOE 

EUU 

lOOOB 

EQUIPMENT CONFIGURATION BY ONLY THESE 


END 


NUMBER OF LINES «ITH DIAGNOSTICS 0 


COMPaSS-32 (2.1) example 25 (MTDRIVER) ll/?l/66 PAGE 


CH 

00000 

P00033 

P00035 

P00046 

P00051 



P00061 

P00065 

P00070 

P00072 

CONCOOE 

01000 

P00033 




CONNECT 

P00033 

POOOOl 

P00012 



EXIT 

P00072 

P00056 




FC 

POOlOO 

P00005 

P00053 



INPOUT 

P00013 

POOOlO 




INPUT 

P00065 

P00024 

P00031 

P00060 


MTDRIVER 

PQOOOO 

P00073 




OUTPUT 

P00061 

P0002S 

P00032 



roymsg 

P00074 

P00002 

P00041 



SELECT 

P00051 

POOOll 

P00023 

P00036 


WAIT 

P00070 

P00064 
















COMPA$S«32 (Ztl) 


MAC 


11/21/66 PAGE 1 


EXTERNAL SYMBOLS 
CIO 


length of subprogram 00076 

length of common 00000 

LENGTH OF DATA 00000 


compass-32 12.1) 


MAC 


LIrM reads.RE irfiNDtSTATUStFOHMAT 


ll/?l/66 PAGE 2 


MACRO examples 


reads 


REiHlNO 


status 

format 


00000 007777T7 00 1 X77777 3 

00001 01000016 01 0 00016 0 

00002 01000000 01 0 POOOOO 0 

00003 60000026 60 0 P00026 0 

00006 OOOOOOSO 00 0 00050 0 


macro 

(LtR.FRA.N.X.IA.MfC) 

ext 

CIO 

RTj 

CIO 

01 

L.X 

ift 

/♦/.R.l 

UJP 

*-2 

iff 

/♦/.R.l 

UJP 

R 

M 

FWA 

c 

N 

iff 

/o/.x.i 

00 

ENOM 

lA 

macro 

(LtR.X.lAt 

ext 

CIO 

RTj 

CIO 

06 

L.X 

ift 

/♦/.R.l 

UJP 

♦«2 

iff 

/♦/.R.l 

UJP 

R 

iff 

/0/.X,l 

00 

ENdM 

lA 

MACRO 

<L*X) 

ext 

CIO 

RTj 

CIO 

13 

L*X 

ENoM 


macro 

(L*R.X) 

ext 

CIO 

RTj 

CIO 

16 

L.X 

ift 

/♦/.R.l 

UJP 

♦-2 

iff 

/♦/.R.l 

UJP 

ENdM 

R 

reads 
ext CIO 
RTj CIO 

01 16,0 

ift *.*.! 

UJP *-2 

iff *.*.! 
60 inbuff 
0 60 

(16.*,INBUFF.60...60 


READS _ 

HEADS • 

reads 

READS ^ 

reads # 

HEADS 

heads ^ 

HEADS # 






A-26 


compass-32 

<2.1> 

MAC 

iff OtOfl 

11/21/66 PAGE 

3 

READS 









R£aOS (14*REJXtlNBUFF«40*2«1 NTaDOi40*40) 

ext CIO 

READS 

00005 

00700000 

00 

1 

xooooo 

3 


RTj CIO 

READS 

00006 

01200016 

01 

0 

00016 

2 


01 I4t2 

READS 








IFT **REJXtl 

READS 








iff **REJX«l 

READS 

00007 

01000024 

01 

0 

P00024 

0 


UJP REJX 

READS 

00010 

40000026 

40 

0 

P00026 

0 


40 iNBUFF 

READS 

00011 

40000050 

40 

0 

00050 

0 


40 40 

READS 








iff 0#2»1 

READS 

00012 

00000022 

00 

0 

P00022 

0 


00 intaoo 

READS 








REWIND (14t«) 

ext CIO 

rewind 

00013 

00700005 

00 

1 

X00005 

3 


RTj CIO 

rewind 

00014 

04000016 

04 

0 

00016 

0 


04 I4t0 

rewind 








IFt *t*tl 

REWIND 

00015 

01000013 

01 

0 

P00013 

0 


UJP *-2 

REWIND 








IFf ****! 

REWIND 








iff 0*0*1 

REWIND 








FORMAT (14,14.2) 

ext CIO 

FORMAT 

00016 

00700013 

00 

1 

X00013 

3 


RTj CIO 

FORMAT 

00017 

14200016 

14 

0 

00016 

2 


14 14*2 

FORMAT 








IFt **14,l 

format 








iff **14,1 

format 

00020 

01000016 

01 

0 

00016 

0 


UJP 14 

FORMAT 

00021 

77770000 

77 

1 

70000 

3 


ucs 


00022 

01077777 

01 

0 

77777 

0 

intadd 

UJP ** 


00023 

01400022 

01 

1 

P00022 

0 


UJP*I INTAOO 


00024 

01077777 

01 

0 

77777 

0 

REJX 

UJP ** 


00025 

01400024 

01 

1 

P00024 

0 


UJP.l REJX 


00026 






1N8UFF 

BSS 40 

end 



number of lines with diagnostics 0 


COMPASS-32 

(2*1) 

MAC 



11/21/66 PAGE 

CIO 


external 

POOOOO 

POOOOS 

P00013 P00016 

INBUFF 

P00026 


P00003 

POOOlO 


INTAOO 

P00022 


P00012 

P00023 


REJX 

P00024 


P00007 

P00025 







A-27 


C0MPASS<*32 (2.1) 


example 26 (COPY) 


11/21/66 PAGE 1 


EXTERNAL symbols 
PRORIVER 
CRORIVER 
MTDRIVER 


ENTRY-POINT SYMBOLS 

COPY 00000 


LENGTH OF SUBPROGRAM 00112 
LENGTH OF COMMON 00000 
LENGTH OF data 00000 


# 


COMPASS-32 (2.1) example 26 (COPY) ll/Pl/66 PAGE 2 

entry COPY 

EXt MTORIVER.CRDRIVER.PRoRIVER 

THIS subprogram is DESIGNED TO TEST THp DRIVERS THAT rtERE i^RITTEN 
PREVIOUSLY (EXAMPLE 25 AND WORKSHEET 8). IT COPIES A DECK OF HOLLERITH 
CARDS TO MaG TAPEi REWINDS THE TAPE AND COPIES THE TAPE ON THE PRINTER, 

PROGRAM REPEATS ON RESTART UNLESS JUMP KEY 1 Is SET IN WHICH CASE 
IT WILL EXIT BACK TO SCOPE. 


00000 

01077777 

01 

0 

77777 

0 

COPY 

UJp 

*» 

linkage BACK TO SCOPE 








— 

— REWIND TAPE 1 ——— 

— 

00001 

14600010 

14 

1 

00010 

2 


ena 

108 

PLACE FUNCTION CODE 

00002 

13077771 

13 

0 

77771 

0 


SHaO 

-6 

IN Q 23-lP (REWIND) 

00003 

14600001 

lA 

1 

00001 

2 


ena 

1 

PLACE Tape number in a 5-1 

00004 

00777777 

00 

1 

X77777 

3 


RTj 

MTDRIVER 










— READ NEXT CARD -— 

... 

00005 

14600054 

14 

1 

P00054 

2 

nextcard 

ena 

0UF 


00006 

13077755 

13 

0 

77755 

0 


shag 

-18 


00007 

14600001 

14 

1 

00001 

2 


ena 

1 


00010 

13077771 

13 

0 

77771 

0 


shag 

-6 


00011 

00777777 

00 

1 

X77777 

3 


RTj 

CRORIVER 










• TEST FOR END OF FILE 

CARO- 

00012 

17600010 

17 

1 

00010 

2 


ana 

lOB 


00013 

03100023 

03 

0 

P00023 

1 


A2j»NE 

filemark 










— OUTPUT CARD IMAGE TO 

MAG TAPE 1 - 

00014 

14600054 

14 

1 

P00054 

2 


ena 

8UF 


00015 

13077755 

13 

0 

77755 

0 


shaQ 

-18 


00016 

14600003 

14 

1 

00003 

2 


ena 

3 


00017 

13077771 

13 

0 

77771 

0 


shag 

-6 


00020 

14600001 

14 

1 

00001 

2 


ena 

1 


00021 

00700004 

00 

1 

X00004 

3 


RTj 

MTDRIVER 


00022 

01000005 

01 

0 

POOOOS 

0 


UJp 

NEXTCARD 















COMPASS-32 


(2«U 


example 26 (COPY) 


ll/Pl/66 PAGE 


3 


CLOSE OUT MAG TAPE i wItH A FM 


00023 

14600015 

14 

1 

00015 

2 

FILEMARK ENa 

158 

00024 

13077771 

13 

0 

77771 

0 

SHaO 

-6 

00025 

14600001 

14 

1 

00001 

2 

ENa 


00026 

00700021 

00 

1 

X00021 

3 

RTj 

MTDRIVER 


rewind MAG TAPE 1 


00027 

14600010 

14 

1 

00010 

2 

ENa 

lOB 

00030 

13077771 

13 

0 

77771 

0 

SHaU 

-6 

00031 

14600001 

14 

1 

00001 

2 

ENa 

1 

00032 

00700026 

00 

1 

X00026 

3 

RTj 

MTDRIVER 


READ NEXT RECORD FROM MAG TAPE 1 


00033 

14600054 

14 1 

P00054 

2 

NEXtREC ENa 

euF 

00034 

13077755 

13 0 

77755 

0 

shaQ 

-18 

00035 

14600001 

14 1 

00001 

2 

ENa 

1 

00036 

13077771 

13 0 

77771 

0 

shaQ 

-6 

00037 

14600001 

14 1 

00001 

2 

ENa 

1 

00040 

00700032 

00 1 

X00032 

3 

RTj 

MTDRIVER 


TEST FOR end OF FILE 


00041 

17600010 

17 

1 00010 2 

ana 

lOB 

00042 

03100051 

03 

0 POOOSl 1 

AZjtNE 

EXIT 


OUTPUT record to PRInTER 


00043 

14600054 

14 

1 

P00054 

2 

ENa 

BUF 

00044 

13077755 

13 

0 

77755 

0 

SHaQ 

-18 

00045 

14600003 

14 

1 

00003 

2 

ENa 

3 

00046 

13077771 

13 

0 

77771 

0 

SHaQ 

•6 

00047 

00777777 

00 

1 

X77777 

3 

RTj 

PRDRIVER 

00050 

01000033 

01 

0 

P00033 

0 

UJP 

NEXTREC 


EXIT PROCEDURE 


00051 

77770000 

77 

1 

70000 

3 EXIT 

UCS 


00052 

00100000 

00 

0 

POOOOO 

1 

SJl 

COPY 

00053 

01000001 

01 

0 

POOOOl 

0 

UJp 

COPY*l 


COMPASS-32 (2.1) example 26 (COPY) 11/21/66 PAGE 4 

----BUFFER AREA --— 

00054 BUF BSS 30 

end copy 

number of lines with diagnostics 0 



















A-29 


compass-32 (2,1) 


example 26 (COPY) 


U/Pl/66 PAGE 1 


auF 

P00054 


P00005 

P00014 

P00033 

P00043 

COPY 

POOOOO 


P00052 

P00053 



CKORIVER 


external 

POOOll 




EXIT 

P00051 


P00042 




FILEMAHK 

PU0023 


P00013 




MTuHIVER 


external 

P00004 

P00021 

P00Q26 

P00032 




P00040 




NEXTCARO 

POOJOB 


P00022 




nexthec 

P00033 


POOOSO 




PHORIVER 


external 

P00047 







COMPASS-32 (2.1) 


CIC VERSION SI 0.0 12/07/64 


U/Pl/66 PAGE 1 


EXTERNAL symbols 
COl 

abnormal 


ENTRY-POINT SYMBOLS 

CIC 00000 

CIT 00044 


LENGTH OF subprogram 
LENGTH OF COMMON 

length of data 


00072 

OOQOO 

00000 




a 






C0MPASS-i2 (2.1) CIC VEWSlUN SI 0.0 12/07/64 ll/Pl/tb PAGE ? 

* * * CEmIKAL IMTERRiiPT CO(gTv<OL PROCEDURf REVISED l2-f>4-()* 

whenever an Interrupt occurs* the HAROhARE 

1. disables the Interrupt system 

2. replaces (00004* BITS l4-0n) WITH THE LOCATION OF THE 

interrupted instruction 

3. REPLACES (00005* BITS ll-Oo) WITH AN IDfTIFYING CODE 

4. transfers CPU CONTROL TO LOCATION 00005. 

SCoPE-32 LOADS THE FOLt.O«lN (3 LTNKAoE TO CIC 
(00004) UJP 0 

(00005) NOP 0 

(00006) UJP CIC 

CiC PERFORMS THE FOLLOWING TASkS 

1. logically IGNORES An INTERRUPT ON A DINT INSTRUCTION 

2. SAVES THE (A)f (Q)« (01)* (B2) AND (B3) 

3. SETS LOCKOUT FLAG 10 IDENTIFY INTERRUPT PROCESSING 

4. transforms INTERRUPT CODE INTO RELATIVE CIT ENTRY 

5. SETS Entry location (FROM rIT) TO link TO USER 

6. SETS iNCL Instruction for f^^ecution on user return 

7. restores abnormal address to cit Entry 

8. enters user interrupt procedure 

9. clears NON-I/0 interrupts 

10. RESTORES LOCK-OUT FLAG 

11. restores saved registers 

12. enables interrupt system 

13. exits to interrupted program 


COMPASS-32 


( 2 . 1 ) 


VERSION 


00000 

45000045 

45 

0 

P00045 

0 

CIC 

entry 

ext 

STaU 

00001 

24400004 

24 

1 

00004 

0 


LCa*I 

00002 

37000043 

37 

0 

P00043 

0 


LPa 

00003 

03100006 

03 

0 

P00006 

1 


AZjtNE 

00004 

20000045 

20 

0 

P 0 OO 45 

0 


lDa 

00005 

01400004 

01 

1 

00004 

0 


UJP.I 

00006 

47100047 

47 

0 

P00047 

1 

C1C2.1 

sti 

00007 

47200050 

47 

0 

P00050 

2 


SIl 

00010 

47300051 

47 

0 

P00051 

3 


STi 

00011 

14477777 

14 

1 

77777 

0 


ENa.S 

00012 

40000044 

40 

0 

P00044 

0 


STa 

00013 

54100005 

54 

0 

00005 

1 


LUI 

00014 

17107777 

17 

0 

07777 

1 


ANJ 

00015 

05100110 

05 

0 

00110 

1 


ISO 

00016 

01000040 

01 

0 

P00040 

0 


UJP 

00Q17 

15177675 

15 

0 

77675 

1 


INI 

00020 

20100044 

20 

0 

P00044 

I 

CIC5.0 

LOA 

00021 

44000026 

44 

0 

P00026 

0 


SWA 

00022 

12000006 

12 

0 

00006 

0 


SHA 

00023 

42000136 

42 

0 

P00027 

2 


SACH 

00024 

14677777 

14 

1 

X77777 

2 


Ena 

0002S 

44100044 

44 

0 

P00044 

1 


SWA 

00026 

00700026 

00 

1 

P00026 

3 

CIC8.0 

RTj 

00027 

77500000 

77 

1 

00000 

1 

CIC9‘.0 

INCL 

00030 

14400000 

14 

1 

00000 

0 


MEm 

Ef^AtS 

00031 

40000044 

40 

0 

P00044 

0 


STa 

00032 

54100047 

54 

0 

P00047 

1 


LOI 

00033 

54200050 

54 

0 

P00050 

2 


LOl 

00034 

54300051 

54 

0 

P00051 

3 


LOI 

00035 

25000045 

25 

0 

P00045 

0 


LOaQ 

00036 

o 

o 

o 

77 

1 

40000 

3 


EInT 

00037 

81400004 

01 

1 

00004 

0 


UJPtI 

00040 

17100007 

17 

0 

00007 

1 

CIC4.1 

ANI 

00041 

15100016 

15 

0 

00016 

1 


INI 

00042 

01000020 

01 

0 

P00020 

0 


UJP 

00043 

77730000 

77 

1 

30000 

3 

dint 

OInT 


si 0.0 

CIC.CIT 
ABNORMALtCOl 


12/07/64 


11/21/66 PAGE 


CIT+1 SAVE (A) AND (0) 

LOGICALLY IGNORE INTERRUPT ON DIN? ---- - « 

4 {(4))* interrupted INSTRUCTION 

DINT mask dint INST (ZERO BITS ll-O) 

CIC2.1 JUMP IF ((4)) NOT OInT 

CIT*! ELSf RESTORE (A) 

4 And exit. Interrupt disabled 

SAVE REGISTERS INCIT --------------- 

CIT*3*1 SAVf (Bl) 

CIT*4,2 (B2) 

CIT*5,3 <B3) 

SET LOCK-OuT FLAG ---------------- 

-0 

CIT 

transform interrupt CODE TO RELATIVE CIT ENTRY - - - 

S.I LOAD and 

77778*1 mask interrupt CODE 

HOB. I SKIP If NON-1/0 INTERRUPT 

CIC4.1 Else go process them 

-1028*1 compute index relative to cit. 

SET USER entry (FROM CIT) INTO RTJ--- - --- 

CIT*1 USER entry location GOES 

CIC8.0 TO RTJ INSTRUCTION 

SET INCL MASK For CLFARInG INTERRUPT -------- 

6 CHARACTER 0 CARRIES MASK 

CIC9.0*2 

RESTORE abnormal ADDhESS TO CIT EnTRy - - - - 

ABNORMAL 

CIT.l 

ENTER USER INTERRUPT PROCEDURE --- - ------ 

* 

clear interrupt if NON-I/0 ------------- 

0 «aSk will be zero on I/O 

INTERRUPTS . CLEARED wIThIN CIO 

RESTORE lOCK-OUT FLAG . ----- . 

0 

CIT 

RESTORE SAVED registers ---- - ------- 

cn*3»i 

CIT*4,2 

CIT*5*3 

CIT*l 

ENABLE interrupt AND EXIT TO INTERRUPTED PROGRAM - - 


transform I/O interrupt CODE - ------- 

7*1 mask channel bits 

CnCHO-ClT,l INCREASE (Bl) To RELATIVE 

CIC5.0 Channel entry and continue 

CONSTANTS AND CENTRAL INTERRUPT TaBLF - - - - - 


00004 

00006 

00007 

00008 

OOOOM 

OOOlO 

OOOll 

00013 

00014 

00015 

00016 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 


00034 

00035 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00681 

00082 

00083 

00084 

00065 

00086 

00087 
































COMPASS-32 (2,1) CIC VERSION SI 0.0 12/07/64 llr/21/66 PAGE 4 

00089 

C I T 00090 

00091 


00044 


77777777 


CIT 

OCt 

77777777 

interrupt LOcK-OUT FLAG. 

00092 








hem 

VALUE IS - 

■0 «HEN interrupt PROCESSING IN PROGRESSi 

00093 








REm 

INTERRUPT 

disabled* anq is ♦o otherwise 

00094 








contents 

OF registers On entry to CIC SAVED IN CIT AND 

00096 








restored 

FROM THESE 

locations 

00097 

00045 


00000000 



OCt 

0 

(AJ 

00098 

00046 


oooooooo 



OCT 

0 

(U) 

00099 

00047 


00000000 



OCt 

0 

(Bl) 

00100 

00050 


oooooooo 



OCt 

0 

(B2) 

OOlOl 

00051 


oooooooo 



OCT 

0 

(63) 

00102 








NOn-I/0 

USER INTERRUPT LINKAGE CELLS, INCL MAsK IS IN 

00104 








character 0 AND GOES 

INTO BIS Il-Ox OF INCL INSTRUCTION. 

00105 








address 

IS INITIALIZED TO ABNORMAL AND RESToREn PRIOR TO 

00106 








entry to 

A USER ROUTINE. 

00107 

00052 

04000024 

04 

0 

X00024 

0 


04 

ABNORMAL 

coDE*oiln real time Clock 

OOlOB 

00053 

20000052 

20 

0 

XOOOS2 

0 


20 

ABNORMAL 

oil! arithmetic OVEpFLOW 

00109 

00054 

20000053 

20 

0 

X00053 

0 


20 

abnormal 

0112 divide FAULT 

OOllO 

00055 

10000054 

10 

0 

X00054 

0 


10 

abnormal 

0113 Exponent overflow 

00111 

00056 

10000055 

10 

0 

X00055 

0 


10 

abnormal 

0114 SCO fault 

00112 

00057 

40000056 

40 

0 

X00056 

0 


40 

abnormal 

oils search/move 

00113 

00060 

00000057 

00 

0 

X00057 

0 


00 

ABNORMAL 

0ll6 manual from console 

00114 

00061 

00000060 

00 

0 

X00060 

0 


00 

abnormal 

0117 adjacent processor 

00115 








I/O INTERRUPT LINKAGE CELLS. INCL MASk ACTS AS NOP - A CLEAR 

00116 








must be 

GIVEN IN THE 

I/O interrupt procedure, address 

00117 








initialization is performed by CIO, 

OOllB 

00062 

00077777 

00 

0 

X77777 

0 

CITCHO 

00 

GDI 

channel 0 

00119 

00063 

00000062 

00 

0 

X00062 

0 


00 

CO I 

channel 1 

00120 

00064 

00000063 

00 

0 

X00063 

0 


00 

COI 

Channel 2 

00121 

00065 

00000064 

00 

0 

X00064 

0 


00 

COI 

channel 3 

00122 

00066 

00000065 

00 

0 

X00065 

0 


00 

COI 

channel 4 

00123 

00067 

00000066 

00 

0 

X00066 

0 


00 

COI 

channel 5 

00124 

00070 

00000067 

00 

0 

X00067 

0 


00 

COI 

Channel 6 

00125 

00071 

00000070 

00 

0 

X00070 

0 


00 

COI 

Channel 7 

00126 








end 



00127 








number of 

LINES KITH 

DIAGNOSTICS 0 



COMPass-32 (2. 

>1) 

CIC 

version si 

0.0 

12/07/64 

ll/Pl/66 PAGE 

1 

ABNORMAL 


external 

P00024 

00064 

P000S2 OOlOB 

P00053 O 0 IO 9 

P00054 

00110 




POOO 55 

00111 

P00056 00112 

P00057 00113 

P00060 

00114 




P00061 

00115 





CDI 


EXTERNAL 

P00062 

00119 

P00063 00120 

P00064 Q 0 I 21 

P00065 

00122 




P00066 

00123 

P00067 00124 

P00070 00125 

P00071 

00126 

CIC2.1 

P00006 


P00003 

00041 





CIC4.I 

P00040 


P00016 

00055 





CIC5.0 

P00020 


P00042 

00085 





CIC8.0 

P00026 


P00021 

00059 





CIC9.0 

P00027 


P00023 

00062 





CIT 

P00044 


POOOOO 

00037 

P00004 00042 

P00006 00045 

P00007 

00046 




POOOlO 

00047 

P00012 00050 

P00020 0005R 

P00025 

00065 




P00031 

00073 

P00032 00075 

P00033 0007*. 

P00034 

00077 




P00035 

00078 

P00041 00064 




CITCHO 

P00062 


P00041 

00084 





DINT 

P00043 


P00002 

00040 






SYMBOLS NOT REFERENCED 

*CIC POOOOO 






COHPASS-32 (2.1) MTMTCIO 


11/21/66 PAGE I 


external symbols 

CIO 


ENTRY-POINT symbols 

MTMTCIO 00000 


LENGTH OF Subprogram 
LENGTH OF COMMON 

length of data 


COMPASS-32 (2*1) 


00274 

00000 

00000 


MTMTCIO 11/21/66 PAGE 2 

This subprogram copies a variable size record ImPUT tape (logi¬ 
cal unit 14/ TO ANOTHER TAPE CLO<»icAL UNIT IS) TmE DENSITY OF 
THC OUTPUT TAPE WILL BE THE DEnSITy SET BY THE OPERATOR, 

THjS SUBPROGRAM DOES NOT CHECK FOR TAPE ERRORS. PARITY IS 
CHfrCKEO only TO INSURE THAT THE MOdE OF THE INPUT TAPE IS THE 
same as the MODE SELECTED. 









Enthy 

MTMTCIO 









ext 

CIO 


00000 

01077777 

01 

0 

77777 

0 

MTMTCIO 

UJP 

•* 


00001 

00777777 

00 

1 

X77777 

3 


RTj 

CIO 

rewind input tape 

00002 

0400001^6 

04 

0 

00016 

0 


04 

14 


00003 

OlOOOOOl 

01 

0 

POOOOl 

0 


UJp 

*-2 


00004 

00700001 

00 

1 

XOOOOl 

3 


RTj 

CIO 

rewind output tape 

00005 

04000017 

04 

0 

00017 

0 


04 

15 


00006 

01000004 

01 

0 

P00004 

0 


UJP 

*-2 


OOOOT 

00700004 

00 

1 

X00004 

3 


RTj 

CIO 

ASSUME AND SET INPUT TAPE TO 

OOOlO 

14200016 

14 

0 

00016 

2 

MODE 

14 

14»2 

binary mode {MODE MAY BE CHANGED 

00011 

01000007 

01 

0 

P00007 

0 


UJP 

*-2 

later) 

00012 

00700007 

00 

1 

X00007 

3 


HTj 

CIO 

initiate reading INPUT RECORD 

00013 

01000016 

01 

0 

00016 

0 


01 

u 

from logical unit 14 (MAX RECORD 

00014 

01000012 

01 

0 

P00012 

0 


UJp 

*-2 

SIZE IS 500 CHARACTERS) 

00015 

00000374 

00 

0 

P00077 

0 

FCA 

00 ,C 

IN8UFF 


00016 

40000764 

40 

0 

00764 

0 


40 

500 


00017 

00700012 

00 

1 

X00012 

3 


RTj 

CIO 

WAIT UNTIL the INPUT IS COMPLETE 

00020 

13100016 

13 

0 

00016 

1 


13 

14,1 


00021 

03200017 

03 

0 

P00017 

2 


AZjtGE 

*-2 


00022 

17702010 

17 

1 

02010 

3 


A No 

2010B 

mask OUT EVERY SATAUS BIT EXCEPT 










EOF and parity 

00023 

04700000 

04 

1 

00000 

3 


uSr 

0 

WAS THERE an EOF OR PARITY ERROR 

00024 

01000046 

01 

0 

P00046 

0 


UJP 

TEST 

YES JUMP TO test. 

00025 

37000076 

37 

0 

P00076 

0 


LPa 

MASK 

AFTER STATUS REQUEST (A) a LCA*1 

00026 

31000015 

31 

0 

P00015 

0 


SBa 

FCA 

calculate number OF INPUT CHAR¬ 

00027 

44000041 

44 

0 

P00041 

0 


SMA 

NOC 

ACTERS AND STORE IN OUTPUT 

00030 

22000041 

22 

0 

POOOlO 

1 


LACH 

MODE^l 

FETCH MODE OF ImPUT RECORD AND 

00031 

42000155 

42 

0 

P00033 

1 


SACH 

OUTmODE*! 

SIORE to SET OUTPUT MODE THE 

00032 

00700017 

00 

1 

X00017 

3 


RTj 

CIO 

SAMP AS INPUT, 

00033 

14000017 

14 

0 

00017 

0 

outmode 

14 

15*0 


00034 

01000032 

01 

0 

P00032 

0 


UJP 

*-2 


00035 

00700032 

00 

1 

X00032 

3 


RTj 

CIO 

INITIATE WRITING OUTPUT BUFFER 

00036 

02000017 

02 

0 

00017 

0 


02 

15 


00037 

01000035 

01 

0 

P00035 

0 


UJp 

*-2 


00040 

00000374 

00 

0 

P00077 

0 


00 ,C 

INBUFF 


00041 

40000000 

40 

0 

00000 

0 

NOC 

40 

0 


00042 

00700035 

00 

1 

X00035 

3 


HTj 

CIO 

WAIT UNTIL OUTPUT IS COMPLETE 

00043 

13100017 

13 

0 

00017 

1 


13 

ISil 


00044 

03200042 

03 

0 

P0U042 

2 


aZj»GE 

•-2 


00645 

01606067 

01 

0 

PoeeoT 

0 


UJP 

MOOt-l 

LOOP TO READ NEW INPUT RECORD 

00046 

17700010 

17 

1 

00010 

3 

TEST 

ANQ 

lOB 


00047 

OA700O00 

04 

1 

00000 

3 


QSf 

0 

WAS AN EOF READ 

0O050 

01000061 

01 

0 

PO0061 

0 


UJP 

EOF 

YtS JUMP TO EOF 








COMPASS-32 (2.1) MTMTCIO U/Pl/66 PAGE 3 


00051 

77770000 

77 

1 

70000 

3 


ucs 


IF parity error stop SO THE 

operator may decide if it Is a 
legal parity ERROR OR WRONG MODE 

00052 

00700042 

00 

1 

X00042 

3 


RTj 

CIO 


00053 

06000016 

06 

0 

00016 

0 


06 

14 

backspace Input tape a record 

00054 

01000052 

01 

0 

P00052 

0 


UJP 

•-2 


00055 

22000041 

22 

0 

POOOlO 

1 


LAcH 

MOOE*1 

FETCH assumed mode AND 

00056 

16600030 

16 

1 

00030 

2 


XOa 

30B 

Change it. 

0005T 

42000041 

42 

0 

POOOlO 

1 


SACH 

M00E*1 

set new mode in sel call and 

00060 

01000007 

01 

0 

P00007 

0 


UJp 

MOOE-1 

TRY again. 

00061 

00700052 

00 

1 

X00052 

3 

EOF 

RTj 

CIO 

write EOF ON OUTPUT TAPE 

00062 

11000017 

11 

0 

00017 

0 


11 

15 


00063 

01000061 

01 

0 

P00061 

0 


UJp 

*-2 


00064 

77700000 

77 

1 

00000 

3 


SLS 


STOP IF selective stop SWITCH 

SET ON console. 

00065 

00100067 

00 

0 

P00067 

1 


SJl 

EXIT 

exit and unload tapes if jump 

KEY 1 IS SETv on console. 

00066 

01000007 

01 

0 

P00007 

0 


UJP 

MOOE-1 

If not jump to pead input record 

00067 

00700061 

00 

1 

X00061 

3 

exit 

RTJ 

CIO 

unload input tape 

00070 

05000016 

05 

0 

00016 

0 


05 

14 


00071 

01000067 

01 

0 

P00067 

0 


UJP 

»-2 


00072 

00700067 

00 

1 

X00067 

3 


RTj 

CIO 

UNLOAD output TaPE 

00073 

05000017 

05 

0 

00017 

0 


05 

15 


00074 

01000072 

01 

0 

P00072 

0 


UJp 

»-2 


00075 

01400000 

01 

1 

POOOOO 

0 


UJPtI 

MTMTCIO 

exit to scope 

00076 

00377777 


MASK 

OCT 

377777 


00077 






inbuff 

BSSvC 

500 









end 

MTMTCIO 



number of lines with diagnostics 0 


# 


COMPASS-32 

(2.1) 

MTMTCIO 




ll/Pl/66 PAGE 

CIO 


EXTERNAL 

POOOOl 

P00004 

P00007 

P00012 




P00017 

P00032 

P00035 

P00042 




P00052 

P00061 

P00067 

P00072 

EOF 

P00061 


P00050 




EXIT 

P00067 


P00065 




FCA 

P00015 


P00026 




1N8UFF 

P00077 


P00015 

P00040 



MASK 

P00076 


P00025 




MODE 

POOOlO 


P00030 

P00045 

P00055 

P00057 




P00060 

P00066 



MTMTCIO 

POOOOO 


P00075 




NOC 

P00041 


P00027 




OUTMODE 

P00033 


P00031 




TEST 

P00046 


P00024 









COMPASS-32 


(2.1) 


TyPEIN 


11/21/66 PAGE 


1 


ENTRY-POINT SYMBOLS 

TYPEIn 00000 


00027 

00000 

00000 


LENGTH OF Subprogram 
length of Common 
length of data 


COMPASS-32 (2.1) TYPElN 11/21/66 PAGE 2 

Tn|3 SUBROUTINE aLlOwS FOR TYPING IN A VARIABLE QUANTITY OF 

FOUR decimal digit num8ers*the Input Is terminated when a 
period is typed in•the calling sequence is, 
call CPJ ■ RTJ TYPEIN 

CP*1J« RETURN 

(AJ *FIRST CHARACTER AODrESS OF INPUT BUFFER 


output (81)« NUMBER OF NUMBERS 









entry 

TYPEIN 


00000 

01077777 

01 

0 

77777 

0 

TYPEIN 

UJP 

•• 


00001 

14100000 

14 

0 

00000 

1 


£NI 

o«i 

clear bi 

00002 

46000020 

46 

0 

P00020 

0 


SChA 

CKPERIOD 


0U003 

46000010 

46 

0 

POOOlO 

0 


SChA 

SET23 

SAVE INPUT PAR. 

00004 

15400004 

15 

1 

00004 

0 


INa.S 

4 


00005 

77600400 

77 

1 

00400 

2 


PAuS 

400B 

IS The TYPEWRlfER BUSY 

00006 

01000005 

01 

0 

P00005 

0 


UJP 

*-l 

yEs loop 

00007 

53420033 

53 

1 

20033 

0 


tam 

33B 

s£T last charactpr address*! of 
input BUFFER INTO REGISTER FILE 
location 338. 

00010 

11377777 

11 

0 

77777 

3 

SeT23 

EChA 

»• 


00011 

53420023 

53 

1 

20023 

0 


TAm 

23B 

SET FIRST character ADDRESS INTO 
REGISTER FILE LOCATION 230. 

00012 

77750000 

77 

1 

50000 

3 


CTI 


SET type in 

00013 

77602000 

77 

1 

02000 

2 

LOOP 

PAuS 

2000 B 

has the repeat Switch on type¬ 

00014 

01000016 

01 

0 

P00016 

0 


UJP 

FINISH 

writer BEEN PUSHEO-YES JUMP TO 

00015 

01000010 

01 

0 

POOOlO 

0 


OJP 

SET23 

address S£T23 AND START OVER- 
no Jump to finish. 

00016 

77601000 

77 

1 

olooo 

2 

FINISH 

PAuS 

loooa 

has the finish Switch been 

00017 

01000013 

01 

0 

P00013 

0 


UJP 

LOOP 

PUSHeO-NO jump To loop. 

00020 

22377777 

22 

0 

77777 

3 

ckperiou 

LACH 

•• 


00021 

04600033 

04 

1 

00033 

2 


ASe 

i3B 

IS The first CHAOACTER a perioo- 

00022 

01000024 

01 

0 

P00024 

0 


UJP 

BYPASS 

yES exit-no jump TO BYPASS 

00023 

01400000 

01 

1 

POOOOO 

0 


UJP* I 

TYPEIN 


00024 

15100001 

15 

0 

00001 

1 

BYPASS 

INI 

1*1 

increase bi By 1 

00025 

53020033 

53 

0 

20033 

0 


tma 

33B 

SET new input buffer and LOOP 

00026 

01000002 

01 

0 

F00002 

0 


UJP 

TYPE1N*2 

TO TvPElN*2 








end 




number of lines WITH DIAGNOSTICS 0 






CUMHAJ>S-J<i (^*1) TtPtiN n/?l/b6 PAGt 1 

P00022 
POUOO? 

P00014 
P00017 

P00003 POOOlS 

P00023 P00026 






compass- 32 (2,1) SORT ll/?l/b6 PAOE 1 


ENTRY-POINT symbols 

SORT 00000 


length of subprogram 00030 
LENGTH OF common 00000 
LENGTH OF DATA 00000 


bypass P00024 
CKPERIOD P00020 
FINISH P00016 
LOOP P00013 
SET23 POOOlO 
TYPtiN POOOOO 







SORT 


2 


COMPASS-32 (2,1) 


11/71/66 PAGE 

this subprogram sorts a bloc^ of Numbers into ascending order, 
upnN Entry the address of the first number is located in the 
LOwER 15 bits of the a register and the number of numbers is in 


call (P) «rtj sort 

(P*1)«RETURN 

U) ■address of the first number 
(B l> ■number of numbers 


entry sort 


00000 

01077777 

01 

0 

77777 

0 

SORT 

UJP 

•* 

OUOOl 

44000010 

44 

0 

POOOlO 

0 


SWA 

INIT-I 

00002 

53640000 

53 

1 

40000 

2 


lAl 

2 

00003 

15277776 

15 

0 

77776 

2 


INI 

-li2 

00004 

47200022 

47 

0 

P00022 

2 


STi 

INLOOP,2 

00005 

15277776 

15 

0 

77776 

2 


INI 

-1 f 2 

00006 

47200024 

47 

0 

P00024 

2 


STi 

OUTLOOP*2 

00007 

47100026 

47 

0 

P0U026 

1 


STi 

BSAVE, 1 

00010 

14177777 

14 

0 

77777 

1 


ENi 

**♦1 

00011 

53100000 

53 

0 

00000 

1 

IMT 

TIa 

1 

00012 

15600001 

15 

1 

00001 

2 


Ina 

1 

00013 

53600000 

53 

1 

00000 

2 


TAI 

2 

00014 

21100000 

21 

0 

00000 

i 


LOq 

0,1 

00015 

20200000 

20 

0 

00000 

2 

LOOP 

LOa 

0,2 

00016 

03600022 

03 

1 

P00022 

2 


AUjfGE 

INLOOP 

00017 

41200000 

41 

0 

00000 

2 


STq 

0,2 

00020 

40100000 

40 

0 

00000 

1 


STa 

0,1 

00021 

13000030 

13 

0 

00030 

0 


SHaQ 

24 

00022 

10277777 

10 

0 

77777 

2 

INLOOP 

isi 

♦*,2 

00023 

01000015 

01 

0 

P00015 

0 


UJP 

LOOP 

00024 

10177777 

10 

0 

77777 

1 

outloop 

ISI 

•*,1 

00025 

01000011 

01 

0 

POOOll 

0 

UJP 

INIT 

00026 

14177777 

14 

0 

77777 

1 

BSAvE 

ENI 


00027 

01400000 

01 

1 

POOOOO 

0 


UJPd 

SORT 


end 


SAVE first MORO ADDRESS OF DATA 

block. 

ADD first WORD address TO NUMBER 

OF entries To Calculate last 
word address*1 OF Input block, 

SET limit of INlOOP PASSES 

SET LIMIT OF OUTLOQP PASSES 

save (81) 

enter 81 WITH First word address 
OF input block 

SET B2 EQUAL TO (Bl)*! 

load Q with first number FOR 
THIS PASS, 

load a WITH next number 
IS A GE Q YES Jump TO INLOOP 
IF (A) WAS LESS THAN (U) SWAP 
THE REGISTER ANn ALSO SWAP THEM 
IN CORE, 


number of LINES with DIAGNOSTICS 0 


compass-32 (2,1) SORT 11/21/66 PAGE 1 


BSAVE 

P00026 

P000fl7 


INIT 

POOOll 

POOOOl 

P00025 

INLOOP 

P00022 

P00004 

P00016 

LOUP 

P00015 

P00023 


OUTlOOP 

P00024 

P00006 


SORT 

POOOOO 

P00027 







C0MPaSS*32 


(2.1) 


TYPEOUT 


U/PI/66 page 


1 


ENTRY-POINT SYMBOLS 

TYPEOUT 00000 


LENGTH OF SUBPROGRAM 00010 
LENGTH OF COMMON 00000 
LENGTH OF DATA 00000 









entry 

TYPEOUT 

00000 

01077777 

01 

0 

77777 

0 

TYPEOUT UJP 

»« 

00001 

77600400 

77 

1 

00400 

2 

PAuS 

400B 

00002 

01000001 

01 

0 

POOOOl 

0 

Ujp 

#-l 

00003 

53420023 

53 

1 

20023 

0 

TAm 

23B 

00004 

53140000 

53 

0 

40000 

1 

AIa 

1 

00005 

53420033 

53 

1 

20033 

0 

TAm 

338 

00006 

77760000 

77 

1 

60000 

3 

CTo 

00007 

01400000 

01 

1 

POOOOO 

0 

Ujpti 

end 

TYPEOUT 


IS The typewriter busy 
yes loop and wait until not busy 
transfer first character address 
into register file location 23B, 
calculate last character address 
*1 By adding (A) AND (81). 
transfer LCA*1 Into RF 338 
SET type out 


number of lines with diagnostics 


0 






C0MPASS*32 


. 2 . 1 ) 


TYPEOUT 


11/21/66 PAGE 


1 


TYPEOUT POOOOO 


P00007 




C0MPASS»32 (2.1) FLOATF 11/21/66 PAGE 1 


ENTRY^POINT SYMBOLS # 

FLOATF 00000 

FLOAT 00000 . 


LENGTH OF Subprogram oooes 

LENGTH OF COMMON 00000 

length of data 00000 






A-39 


:omPASS-32 <2.1) 


liy?l/66 PABE 2 

THIS SUBPROGRAM CONVERTS AN INtEGEP NUMBER INTO FLOATING POINT 

format,UPON entry the address nF Tme Integer nijmber is located 
IN the lower 15 BITS OF P*l, 

CAI.L (PJ ■ RTJ FLOATF 

(P*l)* ADDRESS OF THE INtESEr NUMBER 
(P^2)a RETURN 

output (AQ>« floating point equivalent of The integer number 









entry 

FLOAT,FLOATF 


00000 

01077777 

01 

0 

77777 

0 

floatf 

UJP 

«« 





00000 


float 

EQU 

FLOATF 

Equate float to floatf 

00001 

47100021 

47 

0 

P00021 

1 


STI 

FOUTfl 

savf Bl 

00002 

54100000 

54 

0 

POOOOO 

1 


LOI 

FLOATF,1 

load 81 WITH address OF INTEGER 

00003 

20500000 

20 

1 

00000 

1 


loa»i 

0,1 

load a with integer number 

00004 

15100001 

15 

0 

00001 

1 


INI 

1,1 

increase and set return ADDRESS 

00005 

47000022 

47 

0 

P00022 

0 


STi 

EXIT 

TO P*2 OF calling routine 

00006 

13077747 

13 

0 

77747 

0 


SHaQ 

-24 


00007 

03400021 

03 

1 

P00021 

0 


AQjtEQ 

FOUT 

010 THE INPUT NUMBERsO YES EXIT 

00010 

400'&0023 

40 

0 

P00023 

0 


sta 

MASKO 

SAVf sign of INPUT NUMBER 

00011. 

13502057 

13 

1 

02057 

1 


scaq 

20578,1 

normalize the Integer by using, 
THE scale Instruction 

00012 

13077764 

13 

0 

77764 

0 


SHaQ 

-11 

merge The exponent and bias 
(contents of 81) WITH THE 

00013 

41000024 

41 

0 

P00024 

0 


STq 

TEMP 

mantissa 

00014 

13077763 

13 

0 

77763 

0 


SHaQ 

-12 


00015 

53100000 

53 

0 

00000 

1 


riA 

1 


00016 

36000023 

36 

0 

P00023 

,0 


sca 

MASKO 

complement Exponent and bias if 
THE input number was NEGATIVE. 

00017 

13000014 

13 

0 

00014 

0 


SHaQ 

12 


00020 

21000024 

21 

0 

P00024 

0 


lDq 

TEMP 


00021 

14177777 

14 

0 

77777 

1 

fout 

ENI 

**,1 


00022 

01077777 

01 

0 

77777 

0 

EXIT 

UJP 

«« 


00023 

00000000 


MASkO 

OCT 

0 


00024 






temp 

ess 

1 









end 
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symbols not referenced 
•float pooooo 








CUMPASS-32 (2.1) 


CWOTP 


11/21/66 P*SE 1 


entry-point symsous 

CROTP 00000 


LENGTH OF SUBPROGRAM 00121 

length of common 00000 

LENGTH OF Data 00000 


m 


COMPASS-32 (2.1) CHDTP 11/21/66 PAGE 2 

This subprogram copies a file of Cards from a card reader(unit 
0.controller 3,on channel 0) To A TAPE UNIT (U^JT 1.CONTROLLER 
0 ON channel D.THIS SUBPROGRAM OOpS NOT CHECK FOR CARO OR 
TAPE ERRORS,THE mOOE OF EACH TaPE RECORD IS DETERMINED BY THE 
mOoE OF THE CARD RECORD. THE OFNSItY OF THE OUTPUT TAPE mlLL 
BE The density set by the operator. 


entry CROTP 


00000 

01077777 

01 

0 

77777 

0 

chUtp 

UJP 

•• 


oouol 

77003000 

77 

0 

03000 

0 


CON 

3000B.0 

CONNECT CARD READER ON CHANNEL 0 

00002 

OlOOOOOl 

01 

0 

POOOOl 

0 


UJP 

, *“1 


00003 

77010001 

77 

0 

10001 

0 


CUn 

18.1 

CONNECT output TaPE ON CHANNEL 

00004 

01000003 

01 

0 

P00003 

0 


UJP 



oooos 

77110010 

77 

0 

lOOlO 

1 


S£l 

lOB.l 

rEwInO OUTPUT TAPE 

00006 

01000006 

01 

0 

P00005 

0 


UJP 

*-l 


00007 

77200000 

77 

0 

OOOOO 

2 

INPUT 

CUPY 

0 

IS The Card reader ready and 

UUOlO 

17600OO3 

17 

1 

00003 

2 


ana 

38 

nOT busy-yes initiate INPUT- 

00041 

04600001 

04 

1 

00001 

2 


ase 

18 

NO LOOP UNTIL IT BECOMES HEADY 

00012 

01000007 

01 

0 

PO0007 

0 


UJP 

INPUT 

and not busy. 

00013 

74000121 

74 

0 

P00121 

0 


INp4 

0.8UFF,BUFF*40 

INITIATE READING A BINARY OR 

00014 

00000051 

00 

0 

P00051 

0 





00015 

01000013 

01 

0 

P0U013 

0 


UJP 

*-2 

rcu card. 

00016 

7/200002 

77 

0 

00002 

2 


EXS 

28.0 

rtAiT until thf Caro reader 

00017 

01000016 

01 

0 

POOOI 6 

0 


UJP 

•-1 

becomes not flUSY. 

00020 

7 720 0ct5i, 

77 

0 

00004 

2 


EX5 

4H.0 

WAS the CARO JUST READ A BINARY 

00021 

010000-1 

01 

0 

P00041 

0 


JJP 

rtINARY 

card yes jump to binary. 

00022 

77200010 

77 

0 

00010 

2 


exs 

lOB.O 

wAS a file CApD oEAU (ROw 7 AND 

00023 

01000044 

01 

0 

P00044 

0 


UJP 

EOF 

n PUNCHED) YES J'IMP TO EOF 

00024 

14600002 

14 

1 

00002 

2 


ENa 

28 


00025 

42000133 

42 

0 

P00026 

3 


SACH 

SELMODE*3 

sEI PCD mode for output TAPE, 

00026 

77110000 

77 

0 

10000 

1 

SELMODE 

6EL 

O.l 


00027 

01000026 

01 

0 

P00026 

0 


UJP 

*-l 


00030 

53020000 

53 

0 

20000 

0 


IMa 

f) 

fetch last character AOORESS+1 

00031 

12077775 

12 

0 

77775 

0 


Sha 

-2 

ANU change it TO last word 










AUURfSS*! 

00032 

44000033 

44 

0 

P00033 

0 


SwA 

OUTPUT 

STORf ADOR in output instruction 

00033 

76077777 

76 

0 

77777 

0 

OUTPUT 

OUT* 

1.8UFF.** 

initiate writing output buffer 

00034 

10000051 

10 

0 

P00051 

0 





00035 

01000033 

01 

0 

P00033 

0 


UJP 

*-2 


00036 

77210002 

77 

0 

10002 

2 


EXS 

28.1 

jait until The Output tape 

0U037 

01000036 

01 

0 

P00U36 

0 


UJP 

*-l 

becomes not busy 

00040 

010000O7 

01 

0 

P00007 

0 


UJP 

INPUT 


00 041 

14600001 

14 

1 

00001 

2 

binary 

Ena 

1 

sEl binary mode for output Tape, 

00042 

42000133 

42 

0 

P00026 

3 


SAcH 

SELmode*T 


00043 

01000026 

01 

0 

P00026 

U 


UJP 

SELMODE 










00044 

77110015 

77 

0 

1 0015 

1 

EuF 

SEl 

158,1 

wRITf EOF ON OUTPUT TAPE 

00045 

01000044 

01 

0 

P00044 

0 


UJP 



0UO46 

77110011 

77 

0 

10011 

1 


6EL 

118,1 

-jNUOaD OUTPUT tape (UNIT 1) 









compass-32 

(2.1) 


CRD TP 



ll/?l/66 PAGE 

00047 

01000046 

01 

0 P00046 0 

UJP 

*•1 


00050 

01400000 

01 

1 POOOOO 0 

UJPfl 

CRDTP 

PXIT TO SCOPE 

00051 



BUFF 

BSS 

40 






end 

CRDTP 



number of lines with diagnostics 0 


COMPASS-32 

(2.1) 

CHDTP 



11/21/66 

BINARY 

P00041 


P00021 



BUFF 

P00051 


P00013 

P00013 

P00033 

CRDTP 

POOOOO 


P00050 



EOF 

P00044 


P00023 



INPUT 

P00007 


P00012 

P00040 


OUTPUT 

P00033 


P00032 



SELMOOE 

P00026 


P00025 

P00042 

P00043 








compass-32 


(2.1) 


MTMT 


11/21/66 PAGE 


1 


ENTRY-POINT symbols 

MTMT 00000 


LENGTH OF subprogram 00256 
LENGTH OF COMMON 00000 
LENGTH OF DATA 00000 


COMPASS-32 (2,1) MTMT 11/21/66 PAGE 2 

THIS SUBPROGRAM COPIES A VARIABLE SIZE RECORD INPUT TAPE <UNIT 
ItcONTROLLER Of ON CHANNEL 0) TO ANOTHER TAPE (UNIT 2tC0NTR0L 

ler o*on channel Ut the density Of the output tape will be the 
density set by the operator, 

this Subprogram does not check for tape errors.parity is 
checked only to insure that the mode of the input tape is the 
same as the mode selected. 









entry 

MTMT 


00000 

01077777 

01 

0 

77777 

0 

MTMT 

UJP 

•• 


00001 

77000001 

77 

0 

00001 

0 


con 

18*0 

connect INPUT TAPE UNIT 1) 

00002 

01000001 

01 

0 

POOOOl 

0 


UJP 

*-l 

ON Channel o 

00003 

77010002 

77 

0 

10002 

0 


CON 

2B*1 

connect output Tape (unit 21 

00004 

01000003 

01 

0 

P00003 

0 


UJp 

*-l 

oN Channel 1 

00005 

77100010 

77 

0 

00010 

1 


SEl 

108*0 

rewind Input tape 

00006 

01000005 

01 

0 

P00005 

0 


UJP 

*-l 


00007 

77110010 

77 

0 

lOOlO 

1 


SEl 

108*1 

rewind output Tape 

00010 

01000007 

01 

0 

P00007 

0 


UJP 

*-l 


00011 

77100001 

77 

0 

00001 

1 

MODE 

SEl 

IB.O 

assume and set Input tape to 

00012 

OlOOOOll 

01 

0 

POOOll 

0 


UJP 

*-l 

rInary mode (mode may be changed 
later), 

00013 

73001270 

73 

0 

P00256 

0 


INPC 

0*INBUFF*INBUFF^SOO 

read input record FROM TAPE UNIT 

00014 

00000304 

00 

0 

Po6061 

0 





00015 

01000013 

01 

0 

P00013 

0 


UJP 

*-2 

I (Max record size is 500 

CHARACTERS) 

00016 

77200002 

77 

0 

00002 

2 


EXS 

28*0 

WAIT UNTIL INPUT IS COMPLETE 

00017 

01000016 

01 

0 

P00016 

0 


UJP 

*-l 


00020 

77200010 

77 

0 

00010 

2 


EXS 

108*0 

WAS an EOF READ 

00021 

01000047 

01 

0 

P00047 

0 


UJp 

EOF 

VES JUMP TO EOF 

00022 

77202000 

77 

0 

02000 

2 


EXS 

20008*0 

WAS there a Parity error 

00023 

01000040 

01 

0 

PQ0040 

0 


UJP 

SETMOOE 

vES JUMP TO change mooes 

00024 

53020000 

53 

0 

20000 

0 


TMa 

0 

fetch LAST character ADDRESS OF 

INPUT RECORD*1 

00025 

46000032 

46 

0 

P00032 

0 


SChA 

OUTPUT 

store character address in OUT¬ 
PUT INSTRUCTION. 

00026 

22000047 

22 

0 

POOOll 

3 


LACH 

MO0E*3 

fetch mode of input record and 

00027 

42000143 

42 

0 

P00030 

3 


SAcH 

0UTM0DE*3 

store to set output mode the 

00030 

77110000 

77 

0 

10000 

1 

OUTmOOE 

SEl 

0*1 

SAME AS INPUT 

00031 

01000030 

01 

0 

P00030 

0 


UJP 

*-l 


00032 

75377777 

75 

0 

77777 

3 

OUTPUT 

outc 

l.INBUFF*** 

INITIATE WRITING OUTPUT RECORD 

00033 

10000304 

10 

0 

P00061 

0 





00034 

01000032 

01 

0 

P00032 

0 


UJp 

*-2 


00035 

77210002 

77 

0 

10002 

2 


EXS 

2B*1 

WAIT UNTIL OUTPUT IS COMPLETE 

00036 

01000035 

01 

0 

P0Q035 

0 


UJp 

*-l 


00037 

OlOOOOll 

01 

0 

POOOll 

0 

*»#***• 

UJP 

'*0DE 

LOOP TO READ NEW INPUT RECORD 

00040 

77770000 

77 

1 

70000 

3 

SETmODF 

ucs 


iF Parity error stop so the 
operator may decide if it is a 
legal parity error or WRONG MODE 

00041 

77100012 

77 

0 

00012 

1 


SEl 

128*0 

backspace input tape a record 








A-43 


COMPASS-33 

(3.1) 



MTMT 



ll/Pl/66 PAGE 3 

000A2 

01000041 

01 

0 

P00041 

0 


UJP 

*-l 


00043 

33000047 

33 

0 

POOOll 

3 


LAcH 

MODE+3 

fetch assumed MOnE and 

00044 

16600003 

16 

1 

00003 

3 


XOa 

3 

change IT 

00045 

43000047 

43 

0 

POOOll 

3 


SAcH 

MODE*3 

SET new mode in SEL INSTRUCTION 
an6 try again. 

00046 

01000011 

01 

0 

POOOll 

0 


UJp 

MODE 


00047 

77110015 

77 

0 

10015 

1 

«***««4 

EOF 

»*****«*«'l 

SEl 

150.1 

write EOF ON OUTPUT TAPE 

00050 

01000047 

01 

0 

P00047 

0 


UJP 

*-l 


00051 

77700000 

77 

1 

00000 

3 


SLS 


STOP IF SELECTIVE STOP SWITCH 

SET ON CONSOLE. 

00053 

00100054 

00 

0 

P00054 

1 


SJl 

EXIT 

exit and unload tapes IF JUMP 
key \ IS SET ON CONSOLE. 

00053 

01000011 

01 

0 

POOOll 

0 


JJP 

MODE 

iF Not jump TO READ INPUT RECORD 







«»•«*«**«»««•»«««»««■»•«»»*»«««*««««««*««««»««*««*««»»««««««»«*««««««»«»«««»»«*« 

00054 

77100011 

77 

0 

00011 

1 

EXIT 

SEl 

IIB.O 

unload Input tape 

00055 

01000054 

01 

0 

P00054 

0 


UJp 

#-l 


00056 

77110011 

77 

0 

10011 

1 


SEl 

118.1 

unload Output tape 

00057 

01000056 

01 

0 

P00056 

0 


UJp 

♦-1 


00060 

01400000 

01 

1 

POOOOO 

0 


UJpfl 

MTMT 

exit TO SCOPE 

00061 






inbuff 

BSS*C 

500 



ENo MTMT 

f^UMsER OF LINES rtlTH DIAGNOSTICS 0 




COMPASS-33 (3.1) 


MTMT 


n/?l/66 PAGE 1 


EOF 

P00047 

P00021 




EXIT 

P00054 

P00053 




IN8UFF 

P00061 

P00013 

P00013 

P00033 


MODE 

POOOll 

P00036 

P00037 

P00043 

P00045 



P00046 

P00053 



mtmt 

POOOOO 

P00060 




OUTMODE 

P00030 

P00037 




OUTPUT 

P00032 

P00035 




setmooe 

P00040 

P00033 





9 


9 
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COMPASS-32 (2,1) 


CVTBCOB 


11/91/66 PAGE 1 


ENTRY-POINT SYMBOLS 

CVTBCOB 00000 


00017 

00000 

00000 


LENGTH OF SUBPROGRAM 

length of common 

LENGTH OF DATA 


compass-32 (2,1) CVTBCOB 11/91/66 PAGE 2 

THXS subprogram CONVERTS A POSITIVE FOUR CHARACTER SCO NUMBER 
TO A 24 BIT BINARY NUMBER, 

call (P) ■RTJ CVTBCC0 
(P*U)xRETURN 

(A) -THE FOUR CHARACTER rCO NUMBER 
OUTPUT (A)■24 BIT BINARY NUMBER 









Entry 

CVTBCOB 



00000 

01077777 

01 

0 

77777 

0 

CvTBCDb 

UJP 

«« 



00001 

40000015 

40 

0 

P00015 

0 


STa 

TEMP 

SAVE INPUT PAR. 


00002 

47200013 

47 

0 

P00013 

2 


ST I 

B2SAVE«2 

SAVE (92) 


00003 

14200000 

14 

0 

00000 

2 


ENI 

0t2 



00004 

22000064 

22 

0 

P00015 

0 


LACH 

TEMP 

load a WITH MOST 

character. 

significant 

00005 

50000016 

50 

0 

P00016 

0 

LOOP 

MUa 

*012 

multiply (A) Bt 

AN octal 12 

00006 

15200001 

lb 

U 

00001 

2 


ini 

1*2 



00007 

23400064 

23 

1 

POOOlb 

0 


lQch 

TEMP,2 

load q with next 
character. 

significant 

OUOlO 

53040000 

53 

0 

40000 

0 


AQa 




OUOll 

04200003 

04 

0 

00003 

2 


ISE 

3f2 

IS B? E(JUAL To 3 

yes exit 

00012 

01000005 

01 

0 

P00005 

0 


UJP 

LOOP 

nO Jump to loop 


00013 

14277777 

14 

0 

77777 

2 

B2SAVE 

ENI 

**i2 

restore 82 


00014 

01400000 

01 

1 

POOOOO 

0 


UJPd 

CVTBCOB 



00015 






TEMP 

ass 

1 




End 


literals 

00016 00000012 

number of lines with diagnostics 0 






CUMPASS-32 

iza) 

CVTBCOB 



11/91/66 PAGE 

BaSAVE 

P00013 


P00002 



CVTBCOB 

POOOOO 


P00014 



LOOP 

P00005 


P00012 



TEMP 

P00015 


POOOOl 

P00004 

P00007 

literal 

P00016 

00000012 

P00005 




compass-32 (2.1) CVT8 BCD ll/?l/66 PAGE I 


ENTRY-POINT SYMBOLS 

CVTBBCO 00000 


LENGTH OF SUBPROGRAM 00033 
length OF COMMON 00000 
length of data 00000 


9 






ll/Pl/66 PAGE 

THIS SUBPROGRAM converts A 24 rIT RINARY NUMBER TO A EIGHT 
character BCD NUMBER VITM BLANKS INSERTED To THE LEFT OF THE 

most significant digit. 

call IP) »RTJ CVTB8C0 

(P+1 ).return 

(A) s 24 BIT binary number 
output (AQ) a EIGHT CHARACTER BcO NUMBER 


00000 

01077777 

01 

0 

77777 

0 

CVTBBCD 

UJP 

«• 


00001 

47100025 

47 

0 

P00025 

1 


STi 

BlSAVEtl 

SAVE (81) 

00002 

21000027 

21 

0 

P00027 

0 


ldq 

BLANKS 


00003 

41000030 

41 

0 

P00030 

0 


STq 

bcdans 

SET OUTPUT area TO BLANKS 

00004 

41000031 

41 

0 

P00031 

0 


STo 

BCDANS*! 


00005 

43000113 

43 

0 

P00022 

3 


SUCH 

5ETSI6N43 

SET ASSUMED SIGN TO POSITIVE 

00006 

03200012 

03 

0 

P00012 

2 


AZjtGE 

BYPASS 

IS Input number positive yes jump 

00007 

14100040 

14 

0 

00040 

1 


ENI 

408*1 

nO ScT sign 

00010 

47100022 

47 

0 

P00022 

1 


STi 

SETSIGN,! 


00011 

16477777 

16 

1 

77777 

0 


XOa*S 

-0 

complement the 24 BIT NUMBER 

00012 

14100007 

14 

0 

00007 

1 

BYPASS 

ENI 

7,1 

SET max times through LOOP 

00013 

13077747 

13 

0 

77747 

0 

LOOP 

SMAU 

-24 

shift for 48 BIT DIVIDEND 

00014 

51000032 

51 

0 

P00032 

0 


OVA 

*012 

divide By OCTAL 12 

00015 

43400140 

43 

1 

P00030 

0 


SOCH 

BCDANS,1 

store NEXT significant DIGIT 

00016 

02500020 

02 

1 

P00020 

1 


lUO 

*♦2,1 


00017 

01000022 

01 

0 

P00022 

0 


UJP 

SETSIGN 


00020 

04400000 

04 

1 

00000 

0 


ASe.S 

0 

is The quotient zero-yes SKIP 

00021 

61000013 

01 

0 

P00013 

0 


UJP 

LOOP 


00022 

14700060 

14 

1 

00060 

3 

SFTSIGN 

ENO 

60B 

place sign just to the left of 

00023 

43400140 

43 

1 

P00030 

0 


SQCH 

BCDANS,! 

most significant digit. 

00024 

25000030 

25 

0 

P00030 

0 


LUAO 

BCDANS 


00025 

14177777 

14 

0 

77777 

1 

bisave 

ENI 

**,l 

restore (81) 

00026 

01400000 

01 

1 

POOOOO 

0 


UJPfl 

CVTBBCD 

F.XIT 

00027 

60606060 


Blanks 

BCD 

1, 


00030 






bcdans 

BS$ 

2 



LITERALS 

00032 


number of LINES with DIAGNOSTICS 


11/21/66 PAGE 1 


BLANKS P00027 
BYPASS P00012 
CVTBBCO POOOOO 
LOOP P00OI3 
SETSIGN P00022 
LITERAL P00032 







sequence.002 

JOtt t f t * 
COMPASS ILtX 


A-47 


COMPASS-J2 (2,1) IDC ll/?l/bfe HAC,t 1 


external symbols 
CIO 


ENTKY-POtNT SYMBOLS 

IOC 00000 


LENGTH OF subprogram 
LENGTH OF COMMON 
LENGTH OF UATA 


00032 

oooso 

00000 







A-48 


COMPASS-32 (2,1) IOC U/Pl/66 

ENtHY IOC 

ext CIO 


00000 

01077777 

01 

0 

77777 

0 

IDC 

UJP 

•» 

00001 

00777777 

00 

1 

X77777 

3 

read 

RTj 

CIO 

00002 

01000074 

01 

0 

00074 

0 


01 

60 

00003 

01000001 

01 

0 

POOOOl 

0 


UJP 

*-2 

00004 

00000000 

00 

0 

COOOOO 

0 



INBUFF 

00005 

00000050 

00 

0 

00050 

0 



40 

00006 

00700001 

00 

1 

XOOOOl 

3 


HTj 

CIO 

00007 

13000074 

13 

0 

00074 

0 


13 

60 

00010 

03200006 

03 

0 

P00006 

2 


A2jf6E 

•-2 

00011 

17700010 

17 

1 

OOOlO 

3 


ANO 

lOB 

00012 

04700000 

04 

1 

00000 

3 


USE 

0 

00013 

01000031 

01 

0 

P00031 

0 


UJP 

EOF 

00014 

22000000 

22 

0 

COOOOO 

0 


LACM 

IN8UFF 

00015 

04600041 

04 

1 

00041 

2 


ase 

41B 

00016 

OlOOOOOl 

01 

0 

POOOOl 

0 


UJP 

READ 

00017 

00700006 

00 

1 

X00006 

3 


RTj 

CIO 

00020 

02000073 

02 

0 

00073 

0 


02 

59 

00021 

01000017 

01 

0 

P00017 

0 


UJP 

*-2 

00022 

00000002 

00 

0 

C00002 

0 



IN8UFF+2 

00023 

00000002 

00 

0 

00002 

0 



2 

00024 

00700017 

00 

1 

X00017 

3 


RTj 

CIO 

00025 

13000073 

13 

0 

00073 

0 


13 

59 

00026 

03200024 

03 

0 

P00024 

2 


AZjtGE 

*-2 

00027 

77700000 

77 

1 

ooooo 

3 


SLS 


00030 

OlOOOOOl 

01 

0 

POOOOl 

0 


UJP 

READ 

00031 

01400000 

01 

i 

POOOOO 

0 

EOF 

UJP# I 

IOC 








common 


00000 






IN0UFF 

8SS 

40 


end IOC 

number of lines kith DIAGNOSTICS 0 
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i 

i 
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SNAP#(luC)15«CO»C47iOiOP 
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j • 

i 


j 

I 


( 


PAGE ? 






SUdP 


15547 

lOORAlN 

15611 

lOPACK 

16245 

SNAPSHOT 

17705 

IOC 





ENTR 

15557 

lODRAiN 

16134 

REAOINP 

16012 

REAOLUN 

15611 

WRITECTO 

16200 

WRITEACC 

16172 

WRITEPUN 

15621 

WRITELON 

16163 

•fRITEOUT 

16307 

PR060UMP 

16266 

FORTOUMP 

16245 

SNAPSHOT 

17705 

IOC 

0074b 

SEL 

02130 

UST 

02170 

CST 

00060 

CIT 

02241 

RHT 

02201 

AET 

02402 

02737 

hocksuh 

LOADER 

02305 

02261 

HOCKFl 

ACCOUNTS 

02015 

02303 

BCOBOXS 

MEMORY 

02015 

02015 

FDPBOXS 

ABNORMA|_ 

00107 

CIO 

02453 

START2 


COHM 

03206 032S5 


DATA 

NONE 

EXTA 

NONE 




m 






A 00000060 


Q OOOoOOOO 


OCTAL MEMORY 


03206 00000 60606060 60605125 21436044 64734564 

03^16 00010 45657360 31626321 51734547 65734473 

03226 00020 51477344 30216347 60606060 60606060 

GAP 


73432144 22242173 31475131 44257331 
44222151 73443021 63734447 73442221 
00702015 00702015 00702015 007o20l5 


A 00000060 


Q OOOOOOOO 


OCTAL MEMORY 

03206 00000 60606060 

GAP 

03226 00020 60606060 

GAP 


60017345 64212273 
60606060 60606 O 6 O 


00702015 0C7fl20l5 






A-51 


sequence*003 
J0H,JC«432*1§ 

0CC.X16 

OCCf (IOC)27f0lnn0 0n<)A 

OCC*X.200000?4 l tOCJ t44f)OOOn3Af 44000010<.or>777777 
OCCt*f 02000073,01000003.x »00n00oJ5X,00000nni 
OCCt*f00777777.13000073,0320001 OX,77700000 
OCC**,01 000030 ( TOO ,7760f.0#»0 

HUn,10 






SU8P 

17635 IOC 
ENTR 


17635 

IDC 

00745 

SEL 

02130 

UST 

02170 

CST 

00060 

rTT 

02241 

RMT 

02201 

AET 

02402 

ROCKSUM 

02305 

KDCKF] 

02015 

RCD50XS 

02ni5 

FOP-iQXS 

00107 

CIO 

02453 

START2 

02737 

LOADER 

02261 

ACCO'JmTS 

02303 

MEMORY 

0201S 

abnormal 




COMM 

NONE 


DATA 

NONE 


EXTA 

17617 








LOC 000*3 A f)OP0?015 0 4oon4003 H} 0n0l4 R? 17(S3R R3 00000 TC 0Hf, l4 17f<45 TC 00 TA 02015 IMR 0003 


REGISTER FlLf 


00 

00077460 

20413534 

00770077 

00770077 

00770077 

10770077 

00770077 

10770077 

10 

04077574 

26013534 

00770077 

00770077 

00770077 

00770077 

00770077 

00770077 

20 

60445400 

00045254 

26571102 

00007725 

67o3o634 

O0002O15 

40004003 

00000014 

30 

71045400 

72046404 

23575770 

00007725 

007 /0077 

10017635 

OOOOOOOO 

O003OO07 

40 

00006?43 

O0OO2403 

00077776 

r)0O0332n 

00n00247 

10000000 

00017302 

OOOOOOOO 

50 

01007331 

0000.3274 

uonuoooo 

(lOnOnOOO 

0 0 0 ii 0 0 6 / 

10000605 

OOOOOOOO 

00002137 

60 

00000006 

00000070 

OOOOOOOl) 

60606060 

00000006 

10007271 

00006171 

10000013 

ru 

oooonoo? 

O4077776 

00000003 

OOOOOOSO 

00000144 

10000013 

60606060 

nOuOoOOO 

ME 'lORY 
GAi^ 









03-^00 

GAR 

1 7h\0 

6060606O 

60606060 

60606060 

60606060 

60606060 

40606060 

O0?O?0l5 

O0702015 

00702016 

00/02015 

00/02015 

00/02015 

00702015 

10702015 

00702015 

20017661 

iTf>2n 

4401762? 

44f\ 17627 

00777777 

02000073 

nlf>17622 

>0017634 

OOOOOOOl 

00777777 

1 tf-30 

13000073 

^3217627 

/7700000 

'U"17665 

77606060 

11002037 

007O01 17 

nl000074 

17s4n 

01017636 

00017667 

00O00050 

no/ool0 7 

13nU0074 

^3217643 

17700010 

04700000 

17650 

01017666 

22077334 

1)4600041 

01017636 

00700107 

■12000073 

01017654 

00017671 

17660 

00000002 

00700107 

13000073 

03217661 

nlnl76l7 

11017636 

01417635 

O0054010 

17670 

20102001 

11002001 

44002020 

U'-22100 

llo210o4 

10000000 

OOOOOOOO 

OOOOOOOO 

GAR 

17/30 

nooooono 

oQoonnoo 

uonoooon 

00000000 

oooooooo 

10000000 

OOOOOOOO 

00702015 


*ENn* 

SE'j FRW 
SEQ ERR 


SE:juEMrE»nn4 
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B-l 

3200 COMPUTE.^C CHARACTERISTICS 

1. For each of the following word addresses and character positions, 
provide the equivalent character address and the storage* module In 
which it is contained. 

Word Address 

a) 00027 

b) 06313 

c) 15346 

d) 20476 

2. For each of the following character addresses provide the equivalent 
-word address, character position and storage module. 

Character Address Word Address Character Position Storage Module 

a) 300630 

b) 152063 

c) 325076 

d) 150762 

3. If Character Address 340556 were specified, what character address 
would actually be referenced in an 8K system? 


4. If Character Address 160560 were specified, what character address 
would actually be referenced in a 16K system? 


5. The 3200 system can consist of a maximum of_12-bit data 


Character Position Character Address Storage Module 
#0 
#1 
#2 
#3 


channels. 



A 24-bit data channel may be used in place of _ 12-bit data 

channel(s). It will be programmed as channel number _. 

A 3200 data channel may control a maximum of _ peripheral 

equipment controllers. 

Give a brief description of the four (4) types of Processors. 


What memory locations are always permanently protected and why? 


What address or block of addresses are protected by the Storage 
Protect Switches below? 

Ill 111 110 NNN NNN = 


Describe what happens when an instruction attempts to write into a 
Protected address? 


Give the function of each location within the register file. 



LOAD INSTRUCTIONS 


GIVEN 

: (A) = 00000000 

(Q) = 00007777 


(B^) = : 
(B^) = : 
(B^) = 1 


TEMP = 

Memory Location 13314 


TEMP 

1 27 1 31 1 33 1 

17 


+1 

i 40 1 51 1 33 1 

15 1 


+2 

1 201 41 1 33 1 

14 1 


+3 

1 23 1 14 1 26 1 

llJ 


+4 

i 00 1 71 1 33 1 

16 1 

What 

are the contents 

of the indicated registers after 

of each instruction? 

Assume initial 

condition above fo 

1. 

LDA 

TEMP 

(A) = 

2. 

LDQ 

TEMP+1 

(Q) = 

3. 

LACK 

TEMPjl 

(A) = 

4. 

LDA, I 

TEMP,2 

(A) = 

5* 

LDL 

TEMP,2 

(A) = 

6. 

LCAQ 

TEMP+1 

(A) = 

(Q) = 

7. 

20113315 


II 

< 

8. 

22055462 


(A) = 

9. 

54113316 


(Bb = 

10. 

LDI,I 

TEMP+4,1 

(B^) = 

11. 

LQCH 

TEMP+7 

(Q) = 

12. 

LACK 

TEMPf2,l 

(A) = 



STORE INSTRUCTIONS 


GIVEN; (A) = 

24130120 

(bL = -1 

(Q) = 

13000003 

(B^) = 10 

(B^) = 1 


TEMP = Memory Location 

33444 


TEMPI = Memory Location 

33446 


TEMP 1 011 33 1 34 1 43 

□ 


1 77 1 53 1 34 1 44 

□ 


TEMPI 1 661 73 i 34 1 45 

□ 


1 651 03 1 34 1 46 

□ 


1 441 55 1 66 1 77 

□ 

What are the 

contents of the indicated 

registers or memory locations 

after the execution of each instruction 

? (Assume original settings 

at beginning 

of each instruction set.) 


1. STA 

TEMFf4 

(A) = 

2. STQ,I 

TEMP 

(TEMP) = 

3. SACK 

TEMP, 2 

(TEMIM-2) = 

4. SWA 

TEMP+3 

(TEMP+3) = 

5. STAQ,I 

TEMP 

Where are A & Q stored = 

6. SCHA 

TEMP+1 

(TEMP+l) = 

7. STI 

TEMFf4 

(TEMP+4) = 

8. SQCH 

TEMPI,1 

(Modified location) = 

9. STI 

TEMPI,3 

(TEMPI) = 

10. SWA, I 

TEMPl+1 

(TEMPI) = 



ARITHMETIC, FIXED POINT 


The following problem set is to familiarize the student with the 
arithmetic instructions. 


1. MC, set P to ’’GO’’ and start. 


GO 

ENA,S 

60 4B 


ENQ 

77777B 


MUA 

INTEGER 


HLT 

GO 

INTEGER 

HLT 

4 


(A)^ ^ 



(Q), = 



MC, set P to "GO” 

and start. 


GO 

ENA,S 

0 


ENQ,S 

600B 


DVA 

DIVISOR 


HLT 

GO 

DIVISOR 

OCT 

-7 


(A)f = 



(Q)f = 



MC, set P to "GO" 

and start. 


GO 

LDA 

NUMB 


ADA 

NUMB+1 


ANA 

77777B 


RAD 

NUMB+2 


HLT 


NUMB 

OCT 

-10,-2000,1 


(A)j = 



4. MC, set P to and start. 


GO ENI 7,1 

ENA,S 6 

INA,S 1 

SBA MINUS 

HLT 
OCT 


MINUS 


10 



5. 


What are the contents of A register when program halts? 


TEMP 


ENI 

-6,1 

LDA 

TEMP 

SHA 

5,1 

HLT 


OCT 

40123400 

(A) = 




REGISTER OPERATIONS WITHOUT STORAGE REFERENCE 


B.7 


For each of the following short routines, indicate the final contents 
of designated register. Assume that a M.G. was performed prior to 


starting each program. 


M.L. 


CONTENTS 

00000 


ENI 

40000B,1 

00001 


INI 

100B,1 

00002 


XOI 

7677B,1 

00003 


ANI 

7777B,1 

00004 

11 

HLT 



00000 


ENA,S 

40000B 

00001 


X0A,S 

^OOOB 

00002 


INA,S 

50000B 

00003 

00004 

(A)f = 

ANA,S 

HLT 

40000B 


00000 

ENQ 

60000B 

00001 

XOQ 

70000B 

00002 

INQ 

77777B 

00003 

ANQ 

77777B 

00004 

HLT 


(Q)f 

= 



00000 

ECHA 

2003B 

00001 

ENQ 

0 

00002 

SHA 

-2 

00003 

SHAQ 

24 

00004 

SHQ 

1 

00005 

SHAQ 

35430B 

00006 

HLT 



(A)^ = 

(Q)f = 



GIVEN: (A) = 40372156 
(Q) = 35642761 


(b1) = 77777 
(B^) = 41745 
(B^) = 72156 


Regarding each of the following instructions as separate problems, indicate 
which will RNI at P + 1 by placing a check in the space provided. 


1. __ 

ISE 

0,1 

2. _ 

_ISE 

41745B,3 

3. _ 

_ISE 

43745B,2 

4. _ 

_ASE,S 

27614B 

5. __ 

_ASE 

72156B 

6. __ 

QSE 

47321B 

7. _ 

QSE,S 

34763B 

8. _ 

ISE 

72156B,3 

9. _ 

ISE 

0,0 

iO. _ 

ASE,S 

72156B 

11. _ 

_ISG 

77777B,1 

12. _ 

ISG 

27317B,2 

13. _ 

ISG 

77345B,3 

14. _ 

ASG,S 

73452B 

15. _ 

_^QSG,S 

04210B 

16. _ 

ASG 

72156B 

17. __ 

_ qsG 

35016B 

18. _ 

_ ISG 

72156B,3 

19. ___ 

_ ISG 

17774B,0 

20. 

_ ^ISG 

37432B,2 



STOP MD JUMP INSTRUCTIONS 


GIVEN; (A) 

= 40372156 

(B^) 

- 77777 

(Q) 

= 35642761 

(B^) 

= 41745 



(b3) 

= 72156 

Regarding each 

of the follow'ng instructions 

as separate problems, 

indicate which 

will RNI at P + 1 by placing 

a check 

in the space 


provided. 


1. __ 

ISI 

0,1 

2. _ 

ISl 

30632B,2 

3. _ 

ISI 

72156B,3 

4. _ 

ISD 

0,0 

5. _ 

_ISD 

77777B,1 

6. 

ISD 

47445B,2 

7. _ 

ISD 

05621B,3 

8. _ 

_ISD 

41745B,2 

9 . _ 

ISI 

37621B,1 

10. _ 

IJI 

0,0 

11. _ 

IJD 

62156B,3 

12. _ 

IJI 

44444b,3 

_ 

IJI 

77777B,3 

14. _ 

IJD 

67565B,0 

15. _ 

AZ,J,EQ 

73125B 

16. _ 

AZJ,NE 

33127B 

17. _ 

AZJ,GE 

27215B 

18. _ 

AZJ,LT 

77777B 

19. _ 

AQJ,EQ 

41425B 

20. _ 

AQJ,GE 

42761B 



B-IO 


1. MC, set P to 06Cr00 and start. 


M.L. 

CONTENTS 

06000 

LDA 

6004B 

06001 

INA,S 

-1 

06002 

AZJ,NE 

6005B 

06003 

HLT 


06004 

00 

0 

06005 

INA,S 

2 

06006 

UJP 

6001B 


(A)f = 


2. MC, set P to 05120 and start. 


M.L. 


CONTENTS 


05120 


ENI 

77B,1 

05121 


INA,S 

lOOOOB 

05122 


IJD 

5121B,1 

05123 


1NQ,S 

lOOOOB 

05124 


ISI 

77B,1 

05125 


UJP 

5123B 

05126 


ANA 

0 

05127 

(A)j 

HLT 



(Q)f 

- 



(bLj 




3. MC, set P to 07000 and start. 


M.L. 


CONTENTS 


07000 

IJl 

7007B,1 

07001 

UJP 

7006B,3 

07002 

UJP 

7004B 

07003 

IJI 

7002B,2 

07004 

UJP 

7005B,1 

07005 

UJP 

700 2B 

07006 

RTJ 

7002B 

07007 

HLT 



(P)f = 


(07002) 



B-11 


4. What does this program do? 



ENI 

4,1 

AGAIN 

LDA 

TEMP,1 


RTJ 

ROUTINE 


UJP 



*RAD 

TALLY 


IJD 

AGAIN,1 


HLT 



RAD 

COUNT 


UJP 


ROUTINE 

UJP 



ENI 

0,2 


ASG 

lOOB 


INI 

1,2 


ENA 

1 


UJP,I 

ROUTINE 

TEMP 

OCT 

100 


OCT 

21 


OCT 

77 


OCT 

101 


OCT 

10 

TALLY 

OCT 

0 

COUNT 

OCT 

0 


*The RAD instruction must have been discussed before the above 


problem can be done. 


5. WC, set P to ■•C.O'' and start. The selective stop switch and jump 
switches 1 and 6 are set. 


M.L. CONTENTS 


C.O 

UJP 

C.6 

C.l 

HLT 

C.O 

C.2 

SJl 

C.l 


SLS 


C.4 

SJ3 

C.IO 


SJ6 

C,2 

C.6 

SJ2 

C. 10 


UJP 

C.4 

C. 10 

SLS 



(p)f = 


If the machine were restarted from where it stopped, what memory 


location would it go to? 



B.12 


INTER-REGISTER TRANSFER 


1. What are the contents of the A register and Q register when program 
is executed? 


M.L. 


00000 


LDQ 

TEMP 

00001 


ENA 

GET 

00002 


SWA 

*+l 

00003 


LDA 

-k-k 

00004 


AQA 


00005 


STA 

*+2 

00006 


ENQ 

-6 

00007 


HLT 

** 

00010 


HLT 

kk 

00011 

GET 

ENI 

0,0 

00012 

TEMP 

OCT 

02677771 



(A) = 




(Q) = 



set P to GO 

and start. 


GO 

ENA 

10 


TAI 

3 


ENQ 

10 


INI 

-1,3 


HLT 



(A)^ = 



(Q)^. = 



(B^)^ = 


3. Write the octal coding that will be generated by the following 
COMPASS coding. 


COMPASS 


1) 

AQA 


= 

2) 

INA 

3 

= 

3) 

TIA 

2 


4) 

TQM 

22B 

= 

5) 

AIA 

1 


6) 

TIM 

20B,2 

= 

7) 

TAM 

77B 

= 

8) 

TMI 

60B,3 


9) 

TMA 

27B 

= 

10) 

TMQ 

55B 

= 

11) 

TAI 

1 



OCTAL 



MC, set P to BEGIN and start 


BEGIN 


AIA 


ENI 

-100B,1 

ENI 

-200B,2 

ENI 

300B,3 

ENQ,S 

-0 

TQM 

24B 

TIA 

1 

SHAQ 

^24 

TIA 

3 

AQA 


TAM 

25B 

AIA 

2 

TAM 

26B 

ENA,S 

-1 

lAI 

1 

TIM 

27B,2 

TMQ 

24B 

ENA 

0 

AQA 


HLT 


(A)^ = 


(Q), = 



(B^f = 
(V24) = 

(V25) = 

(V26) = 

(V27) = 


MC, set P to BEGIN and start. 


BEGIN 

LDAQ 

NUMB 


MUAQ 

INTEGER 


DVAQ 

DIVISOR 


STAQ 

ELQ 

EUA 

ANSWER 


STAQ 

HLT 

ANSWER+2 

NUMB 

OCT 

-0,-100 

INTEGER 

OCT 

0,4 

DIVISOR 

OCT 

0,2 

ANSWER 

OCT 

0,0,0,0 


(ANSWER) 

= 


(ANSWER+1) 

= 


(ANSWER+2) 

= 


(ANSWER+3) 

= 



START 

DATACARD 

BELBLANK 

SRC 


INCRE 

FGA 

EXIT 

SAVEB2 

MASK 


SEARCH AND MOVE OPERATIONS 


I DENT 

MAIN 

ENTRY 

START 

EXT 

DELBLANK 


ENA 

DATACARD 

RTJ 

DELBLANK 

BSS 

20 

END 

START 

IDENT 

DELETE 

ENTRY 

DELBLANK 

UJP 

** 

STI 

SAVES2,2 

ENI 

0,2 

SHA 

2 

SCHA 

FCA 

SCHA 

SRC+1 

INA,S 

80 

SCHA 

SRC 

SRCN 

60B,**,** 

UJP 


PAUS 

4000B 

UJP 


TMA 

30B 

LPA 

MASK 

SHAQ 

24 

TMA 

20B 

LPA 

MASK 

AQJ,EQ 

EXIT 

SCHA 


INA,S 

1 

SCHA 

SCR+1 

LACH 

** 

SACH 


INI 

1,2 

UJP 

SRC 

LDA 

*-3 

LPA 

MASK 

AIA 

2 

ENI 


UJP, I 

DELBLANK 

OCT 

00377777 

END 

FINIS 




B-15 


Asstjme program MAIN had previously read in one card image into the 
area labeled DATACARD before it transfers control to a commonly 
used subprogram called DELETE. 

A. Why is Index Register No. 2 saved upon entrance to the DELETE 
subroutine? 


B. why does the program MAIN execute an ENA instruction before 
it does a return jump to the DELETE subroutine? 


C. What is the significance of the double asterisk (**) in the 
coding of the SRCN instruction in the DELETE subroutine? 


D. What is the function of the unconditional jump instruction which 
follows the SRCN instruction in the DELETE subroutine? 


E. What two conditions will cause the PADS instruction within the 


DELETE ROUTINE to do a SKIP EXIT (P + 2)? 



F 


Why at location INCRE is the character address in A updated 
by 1? 


G, What does the A register contain when control is transferred 
back to program MAIN? 



ENTRY 

PROGl 

PROGl 

ENI 

0,1 


ENI 

0,2 

MOVE 

EACH 

FILEljl 


SACK 

FILE2,2 


INI 

1,2 


ISI 

7,1 


UJP 

MOVE 


HLT 



END 

PROGl 


ENTRY 

PROG 2 

PR0G2 

MOVE 

10B,FILE1,FILE2 


UJP 

+-2 


PAUS 

4000B 


UJP 

*-l 


HLT 



END 

PROG 2 


Given the above routines, which one will accomplish the move faster? 
Assume both routines do a character by character move. 


Does the MOVE instruction buy the programmer much time if he has to 
wait until the MOVE is completed? 



B.17 


3. Write a short program which will search a character block (character 
addresses CARD to CARD-h80) for the first GOMMA(,), Loop until the 
search is complete and determine if a COMMAC,) was found; if one 
were found, load the ADDRESS into the A register; if not, set A == 0, 



B.18 


STORAGE TESTS 



ENTRY 

SEARCH 

SEARCH 

ENI 

0,2 


ENI 

7,1 


ENA 

200 


ENQ 

100 


CPR 

LIST,1 


UJP 

*+3 


UJP 

*+2 


RTJ 

FIND 


IJD 

*-4,1 


HLT 


FIND 

UJP 

** 


ENA 

LIST 


AIA 

I 


STA 

ADDRESS,2 


INI 

1,2 


UJP,I 

FIND 

LIST 

DEC 

1,150,20,300,5,200,100,77 

ADDRESS 

OCT 

0,0,0,0,0,0,0,0 


END 



What does the above program do? 


When the program comes to a HALT, what do the following locations 
contain? 


ADDRESS 
ADDRESS+1 = 
ADDRESS+2 = 
ADDRESS+3 


2. The number in the A register after executing a SSH instruction is? 


a) Zero 

b) The original number from memory, unshifted. 

c) The original number from memory, shifted. 

d) The same njjmber that 


was m i\m 




ENTRY 

SCAN 

SCAN 

ENI 

0,3 


ENI 

0,2 


ENI 

3,1 


LDQ 

MASK 

CONTINUE 

LDA 

DATA 


MEQ 

LIST,1 


UJP 

CHECK 


ENA 

LIST 


AIA 

1 


SHA 

2 

CHARADDR 

AIA 

2 


STA 

LISTl,3 


INI 

1,3 


UJP 

CONTINUE 

CHECK 

SSH 

CONTROL 


HLT 



SHQ 

18 


SHA 

18 


STAQ 

MASK 


INI 

1,2 


UJP 

SCAN+2 

CONTROL 

OCT 

73567356 

MASK 

OCT 

77000000 

DATA 

OCT 

45000000 

LIST 

BSS 

3 

LISTl 

OCT 

0,0,0,0,0,0,0,0,0,0,0,0 


END 



What does the above program do? 


Write a program which will search a table called INFO, looking for 
the value 62g in bit positions 11 - 06* Search every other location 
in INFO, which is a total of 16^^^ locations long, starting with the 
last location within the INFO table. The program must keep track of 
all addresses, where a find had occurred. 



B-20 


BCD OPERATIONS 


1. The decimal quantity 4-32,768,987 is contained in a field beginning at 

character address 010000. Indicate the octal contents of the appropriate 
memory locations. 

MEMORY LOCATIONS CONTENTS 


2. After executing a SET 12 and a LDE AA+2 instruction, indicate the 

sign and contents of the E register. AA - 65136 

CONTENTS 

AA 11071002 

02050711 

(E)f - 06010210 

11117102 


3. After executing a SET 10 and a ADE BB42 instruction, indicate the 
final sign and contents of the E register. BB = 13417 

CONTENTS 

(E), - -0,000,987,654,321 BB 04060701 

10010010 

(Elf 11100000 


4. After executing a SET 4 and a SBE CC42 instruction, indicate the 
final sign and contents of the E register. GG = 40000 

CONTENTS 

(E). - 40,000,000,000,989 CC 01141011 

^ 02650411 

(E)f = 


5. After executing a SET 13 and a ADE DD+1,3 instruction, indicate the 
final sign and contents of the E register. (B3) = 77765 DD = 04002 

CONTENTS 

(E). = 4-1,000,000,000,000. 01100611 

^ 11070302 

(E)f = 10100301 

DD 00111151 
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6. After executing a SET 9 and a STE lOB instruction, indicate the final 
sign and contents of the E register as well as the contents of the 
storage locations affected. 


(E)^ = -9,568,765,867,898. M.L. CONTENTS 

(")f = 


7. Fill in the six (6) locations starting with ''CHARS^’ with their octal 
contents, after the following has been executed. Place X's where 
contents not known. 


(E^) - 

+0000045468799 



EZJ,EQ 

OUT 


EZJ,LT 

OUT 


SET 

10 


SFE 

2 


STE 

ANSWER 


NOP 


OUT 

HLT 


CHARS 

BCD,C 

12,TOTAL EQUAL 

ANSWER 

BCD,C 

10, 

CHARS 

1 1 1 1 



(E)f = 

(D) = 
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8. Fill in the octal contents of the four (4) locations starting at 
^'DATA”, after the following program has been executed. Place X*s 
where the contents are not known. 


"d = 

-0405060708090 



SET 

1 


ENI 

0,2 

LOOP 

EZJ,EQ 

DONE 


SFE 

-1 


STE 

DATA, 2 


INI 

1,2 


UJP 

LOOP 

DONE 

HLT 


DATA 

BCD,C 

12, 


DATA 
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3200 COMPUTER 

CHARACTERISTICS - ANSWERS 


1. 

Character Address 

Storage Module 



a) 000134g 

0 



b) 031455g 

0 



c) 065632g 

0 



d) 102373g 

1 


2. 

Word Address 

Character Position 

Storage Module 


a) 60146g 

0 

3 


b) 32414g 

3 

1 


^ \ -t 

o 

n 


C; OJZ.i/g 




d) 32174g 

2 

1 

3. 

Character Address 

Word Address 

Character Position 


040556g 

10133g 

2 

4. 

Character Address 

Word Address 

Character Position 


160560^ 34134 0 

8 8 


5. 4 

6. a) 2 

b) #2 

7. 8 

8. a) 3204 (Basic Processor) contains the logic to perform 24-bit fixed 

point arithmetic, 48-bit fixed point addition and subtraction, 
Boolean, character and word handling and decision making operations, 
b) 3205 (Scientific Processor) contains the capability of the 3204, 

plus floating point and 48-bit precision fixed point multiplication 


and division 
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c) 3210 (Data Processor) contains the capability of the 3204, plus 
the ability to handle BCD characters. 

d) 3215 (General Processor) contains the capability of the 3204, 
3205 and 3210. 


9. 


Memory Size 
4K 
8K 
16K 
32K 


Locations Protected 


07640 - 07677 

17640 - 17677 

37640 - 37677 

77640 - 77677 

The auto-load program resides here, and consists of the necessary 
instructions to bring in a program from magnetic tape unit. If these 
locations were not protected, this program could be destroyed and no 
more auto-load capability, which is a necessary item for the 3200 
Scope operating system. 


10. LOCATIONS 77600g thru 77677 q 

11, No writing takes place and the write instruction acts like a NOP 
instruction. The computer does not HALT and does not generate an 
interrupt. The illegal write can be only sensed by the INS instruction. 


12. Register Numbers Reserved for: 

00 - 07 Modified I/O instruction word containing the 

current character or word address (channel 
0-7 control) 

10 - 17 Modified I/O instruction word containing the 

last character or word address + 1, depending 
on the instruction (channel 0-7 control) 

20 Search instruction word containing the current 

character address (search control) 

21 Move instruction word containing the source 

address (move control) 
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2. (cont.) 


Register Numbers 

Reserved for: 


22 

Real-time clock, current time 


23 

Current character address (typewriter control) 

24 - 27 

Temporary storage 


30 

Instruction word containing the 
address +1 (search control) 

last character 

31 

Instruction word containing the 
address (move control) 

destination 

32 

Real-time clock, interrupt mask 


33 

Last character address + 1 (typewriter control) 


34 


77 


Temporary storage 



LOAD INSTRUCTIONS - ANSWERS 


27313317 

40513315 

00000033 

23142615 

00003314 

37264462 

57364463 

23142615 

00000033 

13314 

42615 

00000015 


00000040 



STORE INSTRUCTIONS - ANSWERS 


24130120 

01333443 

20733445 

65030120 

(TEMP) = A 
(TEMP+1) = Q 

77530120 

44500000 

(TEMP+1) = 77533403 

66700001 


66730120 
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ARITHMETIC, FIXED POINT - ANSWERS 

1. (A)jf = 00003020 

(Q)^ = 00000000 (can't be a negative zero) 

2. (A)j^ = 77777711 (-66g) 

(Q)£ = 00000006 Same Sign as Dividend 

3. (A)£ = 00075767 

4. (A)£ = 77777776 

5. (A)£ = 60051600 



REGISTER OPERATIONS WITHOUT STORAGE REFERENCE - ANSWERS 


1. (Bl)f 

2. (A)f 

3. (Q)f 

4. (A)f 

(Q)f 

1. ^ 

2 . 

3. 

4. ^ 

5. 

6 . ^ 

7. 

8. 

9. 

10 . \y^ 

11 . 

12 . 

13. 1/" 

14. 

15. 

16. 

17. 

18. 

19. 


= 07777 

= 77740000 

= 00007777 

= 00001000 
= 00000000 


20 



STOP AND JUMP INSTRUCTIONS - ANSWERS 


1. 


2. 


3. 


4. 


5. 


6, 


7. 


8 . 


9. 


10. 


11. 


12. 


13. 


14. 


15. 


16. 


17. 


18. 


19. 


20. 



1. (A)^ = 00000000 

2. (A)f = 00000000 

(Q)f = 01000000 

(B^)^ = 00000 

3. (P)f = 07007 

(07002) = UJP 07007B 

4. Looks at all values of TEMP TEMP+4j 
for values greater or equal to 100 
octal, A count of all values equal 

to or greater than 100 octal are 
kept in COUNT. A count of all values 
less than a 100 octal are kept in 
TALLY. 

5. (P) = C.l 

C.O 



INTER-REGISTER TRANSFERS - ANSWERS 


(A) = 16600000 

(Q) = 00077771 

(A) = 00000012 

(Q) = 00000012 

(B^), = 00011 


1) 

53040000 

2) 

53740000 

3) 

53200000 

/. ^ 

/ 

53410022 

5) 

53140000 

6) 

53630020 

7) 

53420077 

8) 

53330060 

9) 

53020027 

10) 

53010055 

11) 

53500000 


(A)f = 

00000000 

(Q)f = 

77777777 

(B’-)f = 

77676 

(V24) = 

77777777 

(V25) = 

00100177 

(V26) = 

00177776 

(V27) = 

00077577 

77777777 


77777577 


00000000 



00000000 



SEARCH AND MOVE OPERATIONS - ANSWERS 


All subroutines which are used by other programs, should save any 
register that is uses in performing its task. Index Register #2 
may contain valuable data to program MAIN, at the time it transfers 
control to the DELETE subroutine; so if (B ) was not saved upon 
entrance and restored before exiting from the DELETE subroutine, 
it would contain invalid data upon return to program MAIN. 

The DELETE subroutine must have the first word address of the card 
image area in the A Register upon entrance to its routine. So 
program MAIN must obtain the first word address of the card image 
area into A, before it transfers control to the DELETE subroutine. 
It does this by an ENA DATACARD. 

Normally a field represented by a double asterisk(**) will be 
modified during the execution of a program and the double asterisk 
(**) provides a convenient way to see if the modification took 
place. (**) presets the field to all l 2 ^s. 

Control is transferred to this instruction if a SRCE, SRCN, or 
MOVE instruction is already in progress and the search instruction 
preceding this jump instruction will not be initiated until any 
previous search or move is completed. 

1. When a comparison occurs between the search character (non¬ 
blank) and a non-blank character in storage. 

2, When register file 20 is equal to register file 30 (no non¬ 
blank character found). 

The search is to continue until all blank characters are deleted. 
Upon a find, the search is terminated and register file location 
#20 contains the address of the find. So to continue the search 


this address must be updated by 1 or Llie program will be hung in 
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G) Upon exiting from the DELETE subroutine, A will contain the last 

character address + 1 of the DATACARD area with all blank characters 
deleted. 


2. A) PROGl 

1.8 

1.8 

3.5 

3.5 Repeated 8 times 

1.8 

2.6 

1.8 

1.8 

109.2 usee. 


PROG2 

90.2 

1.8 

92.0 usee. 


B) On the above move he saves only 17.2 usee, (approximately 2 usee, 
per character). On a maximum move of 128 characters, the MOVE 
instruction would be approximately 256 usee. 



IDENT 

PROGRAM 


ENTRY 

START 

START 

SRCE 

73B,CARD,CARD+80 


UJP 

2 


PADS 

4000B 


UJP 

*-l 


TMA 

30B 


LPA 

MASK 


SHAQ 

24 


TMA 

20B 


LPA 

MASK 


AQJ,EQ 

HLT 

EXIT 

EXIT 

ENA,S 

+0 


UJP 

it 2 

MASK 

0CT 

377777 


END 
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STORAGE TESTS - ANSWERS 


1. A) The program searches a list of operands from LIST thru LIST+7 
(10 locations) looking for values that are within or equal to 
the upper limit in A (200^^) and the lower limit in Q (100^^^). 
On a find, the addresses of the operands are stored in a table 
called ADDRESS. 


B) M.L. 


Contents of 


ADDRESS LIST+6 
ADDRESS+1 LIST-f5 
ADDRESS+2 LIST+1 
ADDRESS+3 0 


2. Answer is d; contents of A is not altered. 


3. The program searches a list of 6 bit characters, from LIST thru LIST+2 
(3 locations) for a 45 code in any character position (0 thru 3) of 
each location. Upon a find, the character address is generated and 
stored into a table called LISTl. 


4. 



IDENT 

PROGRAM 



ENTRY 

START 

= SIZE 0F TABLE (16) + INTERVAL-1 

START 

ENI 

17,1 


ENI 

0,2 

B^ = ADDRESS C0UNTER 


ENQ 

7700B 

Q = 00007700 (MASK) 

SEARCH 

ENA 

6200B 



MEQ 

INF0,2 

INF^ = START 0F TABLE, 2 = INTERVAL 


UJP 

THRU 

SEARCH COMPLETE 


ENA 

INF0 

(A) = OOOINF0 


AIA 

1 

(A) = 000INFj2(+B^ 


STA 

LIST,2 

SAVE FIND ADDRESS 


INI 

1,2 

PREPARE F0R NEXT FIND 


UJP 

SEARCH 


THRU 

HLT 



INF0 

BSS 

16 


LIST 

0CT 

0,0,0,0,0,0 

,0,0 


Index register 1 must start with because it will be decremented 

by the interval (2) before the search begins. This will start the search 


at INF0+15, which is the last location of the table. 
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BCD OPERATIONS - ANSWERS 


1, 02000 03020706 

02001 10111007 


2. (E)£ = +0822579612899 


3. (E)^ - +0006193435479 


4, (e)£ = +0000000009914 


5. (E)^ = +0026711689001 


6. 00010 = 07060510 

00011 - 06071011 

00012 = 50XXXXXX 

(E)^ = -0000000009568 


7 • CHARS T 0 T A 

L E Q 
UAL 
04 05 04 
06 10 07 11 
11 00 00 XX 

(E)^ = +0000000000000 

(D) = 10 or 12_ 

10 ^ 


8, DATA 51 50 47 46 

45 44 XX XX 
XX XX XX XX 
XX XX XX XX 

(E)f= +0000000000000 


automatically changes to a +0 



SUMMARY OF INSTRUCTION EXECUTION TIMES, ^sec. 


2.5 

ADA 

2.5 

LDI 

3.8 

ADAQ 

2.5 

LDL 

11.5* 

ADE i 

2.5 

LDQ 

1.3* 

AEU 

2.5 

LPA 

1.3 

AIA 

2.5 

LOCH 

1.3 

ANA 



1.3 

ANI 

4.2 -f 4.2n 

MEQ 

1.3 

ANQ 

3.3 

MOVE 

1.3 

AQA 

4.2 -l-4.2n 

MTH 

1.3* 

AQE 

7.8-11.0 

MUA 

1.9 

AQJ 

16.0-21.0* 

MUAQ 

1.9 

ASE 



1.9 

ASG 

3.3 

OTAC 

1.9 

AZJ 

3.3 

OTAW 



3.3 

OUTC 

1.3-1.7 

GINS 

3.3 

OUTW 

*** 

CON 



1.3-1.7 

COPY 

2.0 US-40 ms 

PAUS 

2.5-3.4 

CPR 



1.3 

CTI 

1.3* 

QEL 

1.3 

CTO 

1.9 

QSE 



1.9 

QSG 

1.3 

DINT 



11.25 

DVA 

3.8 

RAD 

22.5* 

DVAQ 

2.5 

RTJ 

1.3* 

EAQ 

2.5 

SACH 

1.3 

ECHA 

2.5 

SBA 

1.3 

EINT 

3.8 

SBAQ 

1.3* 

ELQ 

1.3 

SBCD 

1.3 

ENA 

11.5* 

SBE 

1.3 

ENI 

2.5 

SCA 

1.3 

ENQ 

1.9-3.9 

SCAQ 

1.3* 

EOJ 

2.5 

SCHA 

1.3* 

EUA 

1.3 

SCIM 

1.3-1.7 

EXS 

#»* 

SEL 

1.3* 

EZJ 

1.3* 

SET 



1.3-4.3* 

SFE 

10.0-12.0* 

FAD 

1.3 

SFPF 

20.0* 

FDV 

1.3-2:7 

SHA 

14.0-18.0* 

FMU 

1.3-2.7 

SHAQ 

10.0-12.0* 

FSB 

1.3-2.7 

SHQ 



1.3 

SJ1-6 

— 

HIT 

1.3 

SLS 



2.5 

SQCH 

1.3 

lAI 

3.3 

SRCE 

** 

lAPR 

3.3 

SRCN 

1.9 

iJD 

2.5 

SSA 

1.9 

IJI 

3.8 

SSH 

1.3 

INA 

1.3 

SSIM 

! »** 

INAC 

2.5 

STA 

*** 

IN AW 

3.8 

STAQ 

1.3 

INCL 

8.0* 

STE 

1.3 

INI 

2.5 

STI 

3.3 

INPC 

2.5 

STQ 

3.3 

INPW 

2.5 

SWA 

1.3 

INQ 

1.3 

TAI 

1.3-1.7 

INS 

1.8 

TAM 

1.3-1.7 

INTS 

1.3 

TIA 

1.3 

lOCL 

1.8 

TIM 

1.9 

ISD 

1.8 

TMA 

1.9 

ISE 

1.8 

TMI 

1.9 

ISG 

1.8 

TMQ 

1.9 

ISI 

i 

TQM 

2.5 

LACH 

1 

UCS 

2.5 

LCA 

! 1.3 

UJP 

3.8 

LCAQ 



2.5 

LDA 

1 1.3 

XOA 

3.8 

LDAQ 

1.3 

XOI 

8.0* 

LDE 

1.3 

XOQ 


n = number of words searched. 

* = Trapped instruction in computers without the epp'-opriate optional hardware package. 
** = Dependent upon interrupt response. 

*** = Dependent upon a variable signal response time from an external source of equipment 





INSTRUCTION INDEX 




BY OCTAL OPERATION CODE 



BY 

MNEMONIC OPERATION CODE 


OCTAL 

MNEMONIC 


OCTAL 

MNEMONIC 


MNEMONIC 


MNEMONIC 


OPERATION 

OPERATION 

SECTION 

OPERATION 

OPERATION 

SECTION 

OPERATION 

SECTION 

OPERATION 

SECTION 

CODE 

CODE 

NUMBER 

CODE 

CODE 

NUMBER 

CODE 

NUMBER 

CODE 

NUMBER 

00.0 

HLT 

3.5.5 

40 

STA,I 

3.2.1 

ADA, I 

3.3.1 

LDA,I 

3.1.1 

00.1 

SJl 

3.5.6 

41 

STQ,I 

3.2.2 

ADAQ,I 

6.1 

LDAQ,I 

5.1 

00.2 

SJ2 

3.5.6 

42 

SACK 

8.2.3 

ADE 

14.2.8 

LDE 

14.2.6 

00.3 

SJ3 

3.5.6 

43 

SQCH 

8.2.4 

AEU 

13.2.2 

LDi;i 

3.1.3 

00.4 

SJ4 

3.5.6 

44 

SWA, I 

3.7 

AIA 

9.5.2 

LDL,I 

7.2 

00.5 

SJ5 

3.5.6 

45 

STAQ,I 

5.2 

ANA 

7.4.2 

LDQ,I 

3.1.2 

00.6 

SJ6 

3.5.6 

46 

SGHA,I 

8.2.5 

ANA,S 

7.4.2 

LPA,I 

7.4.1 

00.7 

RTJ 

3.5.4 

47 

STI,I 

3.2.3 

ANI 

7.4.4 

LQCH 

8.2.2 

01 

UJP,I 

3.5.1 

50 

MUA,I 

3.3.3 

ANQ 

7.4.3 

MEQ 

11.1 

02.0 

No Operation 

51 

DVA,I 

3.3.4 

ANQ,S 

7.4.3 

MOVE,INT 

10.3 

02.1-3 

IJI 

3.5.7 

52 

CPR,I 

11.4 

AQA 

9.5cl 

MTH 

11.2 

02.4 

No Operation 

53.01 

TMQ 

9.3.1 

AQE 

13.4.2 

MUA,I 

3.3.3 

02.5-7 

IJD 

3.5.7 

53.02 

TMA 

9.2.1 

AQJ,EQ 

3.5.3 

MUAQ,I 

6.3 

03.0 

AZJjEQ 

3.5.2 

53.04 

AQA 

9.5.1 

AQJ,GE 

3.5.3 

NOP 


03.1 

AZJ,NE 

3.5.2 

53.(0+b)0 

TIA 

9.1.1 

AQJ,LT 

3.5.3 . 

OTAC,INT 

20.8.3 

03.2 

AZJjGE 

3.5.2 

53.(0+b)3 

TMI 

9.4.1 

AQJ,NE 

3.5.3 

OTAW,INT 

20.8.4 

03.3 

AZJ,LT 

3.5.2 

53.(0+b)4 

AIA 

9.5.2 

ASE 

3.6.1 

OUTC,INT, 

20.7 

03.4 

AQJ,EQ 

3.5.3 

■ 53.41 

TQM 

9.3.2 

ASE,S 

3.6.1 

B,H 


03.5 

AQJ,NE 

3.5.3 

53.42 

TAM 

9.2.2 

ASG 

3.6.2 

OUTW,INT, 

20.5 

03.6 

AQJ,GE 

3.5.3 

53.(4+b)0 

TAI 

9.1.2 

ASG,S 

3.6.2 

B,H 


03.7 

aqj,lt 

3.5.3 

53.(4+b)3 

TIM 

9.4.2 

AZJjEQ 

3.5.2 

PAUS 

10.4 & 

04.0 

ISE 

3.6.1 

53.(4-f-b)4. 

lAI 

9.5.3 

AZJ,GE 

3.5.2 


20.10.5.3 

04.1-3 

ISE 

3.6.1 

54 

LDI,I 

3.1.3 

AZJ,LT 

3.5.2 

QEL 

13.3.2 

04.4 

ASEjS 

3.6.1 

55.0 

No Operation I 

AZ J,NE 

3.5.2 

QSE 

3.6.1 

04.5 

QSE,S 

3.6.1 

55.1 

ELQ 

13.3.1 1 

GINS 

20.9.5 

QSE,S 

3.6.1 

04.6 

ASE 

3.6.1 

55.2 

EUA 

13.2.1 1 

CON 

20.2 

QSG 

3.6.2 

04.7 

QSE 

3,6.1 

55.3 

EAQ 

13.4.1 1 

COPY 

20.9.2 

QSG,S 

3,6,2 

05.0 

ISG 

3.6.2 

55.4 

No Operation I 

CPR,I 

11.4 

RAD,I 

3.3.5 

05.1-3 

ISG 

3.6.2 

55.5 

QEL 

13.3.2 

CTI 

20.10.5.1 

RTJ 

3.5.4 

05.4 

ASG,S 

3.6.2 

55.6 

AEU 

13.2.2 

CTO 

20.10.5.2 

SACH 

8.2.3 

05.5 

QSG,S 

3.6.2 

55.7 

AQE 

13.4.2 

DINT 


SBA,I 

3.3.2 

05.6 

Kcn 

ntj vjr 

3.6.2 

56 

MUAQ,I 

6,3 

DVA,I 

3.3.4 

SBAQ,I 

6.2 

05.7 

QSG 

3.6.2 

57 

DVAQ,I 

6.4 

dvaq,i 

6.4 

SBCD 


06.0-7 

MEQ 

11.1 

60 

FAD, I 

12.3.1 

EAQ 

13.4.1 

SBE 

14.2.9 

07.0-7 

MTH 

11.2 

61 

FSB, I 

12.3.2 

ECHA 

8.2.6 

SCA,I 

7.5.1 

10.0 

SSH 

11.3 

62 

FMUjI 

12.3.3 

ECHA,S 

8.2.6 

SCAQ 

13.5 

ioa-3 

ISI 

3.6.3 

63 

FDV,I 

12.3.4 

EINT 

21.1-2 

SCHA,I 

8.2.5 

10.4 

ISD 

3.6.3 

64 

LDE 

14.2.6 

ELQ 

13.3.1 

SCIM 


10.5-7 

ISD 

3.6.3 

65 

« STE 

14.2.7 

ENA 

3.4.4 

SEL 

20.3 

11.0 

ECHA 

8.2.6 

66 

ADE 

14.2.8 

ENA,S 

3.4.4 

SET 

14.2.5 

11.4 

ECHA,S 

8.2.6 

67 . 

SBE 

14.2.9 

ENI 

3.4.4 

SFE 

14.2.1 

12.0-3 

SHA 

3.8.2 

70.0-3 

SFE 

14.2.1 

ENQ 

3.4.4 

SFPF 


12.4-7 

SHQ 

3.8.2 

70.4 

EZJ,EQ 

14.2.2 

ENQ,S 

3.4.4 

SHA 

3.8.2 

13.0-3 

SHAQ 

5.3 

70.5 

EZJ,LT 

14.2.3 

EOJ 

14.2.4 

SHAQ 

5.3 

13.4-7 

SCAQ 

13.5 

70.6 

EOJ 

14.2.4 

EUA 

13.2.1 

SHQ 

3.8.2 

14.0 

NOP 


70.7 

SET 

14.2.5 

EXS 

20.9.1 

SJl 

3.5.6 

14.1-3 

ENI 

3.4.4 

71 

SRCE,INT 

10.2.1 

EZJ,EQ 

14.2.2 

SJ2 

3.5.6 

14.4 

ENA,S 

3.4.4 

71 

SRCN,INT 

10.2.2 

EZJ,LT 

14.2.3 

SJ3 

3.5.6 

14.5 

ENQjS 

3.4.4 

72 

MOVE,INT 

10.3 

FAD, I 

12.3.1 

SJ4 

3.5.6 

14.6 

ENA 

3.4.4 

73 

INPC,INT, 

20.6 

FDV,I 

12.3.4 

SJ5 

3.5.6 

14.7 

ENQ 

3.4.4 


B,H 


FMU,I 

12.3.3 

SJ6 

3.5.6 

15.0 

No Operation 

73 

INAG,INT 

20.8.1 

FSB,I 

12.3.2 

SLS 


15.1-3 

INI 

3.4.3 

74 

INPW,INT, 

20.4 

HLT 

3.5.5 

SQCH 

8.2.4 

15.4 

INA,S 

3.4.1 


B,N 


lAI 

9.5.3 

SRCE,INT 

10.2.1 

15.5 

INQ,S 

3.4.2 

74 

INAW,INT 

20.8.2 

lAPR 


SRCN,INT 

10.2.2 

15.6 

INA 

3.4.1 

75 

OUTCjINT, 

20.7 

IJD 

3.5.7 

SSA,I 

7.6 

15.7 

INQ 

3.4.2 


B,H 


IJI 

3.5.7 

SSH 

11.3 

16.0 

No Operation 

75 

OTAG,INT 

20.8.3 

INA 

3.4.1 

SSIM 

21.1 

16.1-3 

XOI 

7.5.4 

76 

OUTW,INT, 

20.5 

INA,S 

3.4.1 

STA,I 

3.2.1 

16.4 

XOA,S 

7.5.2 


B,N 


INAC,INT 

20.8.1 

STAQ,I 

5.2 

16.5 

XOQ,S 

7.5.3 

76 

0TAW,INT 

20.8.4 

INAW,INT 

20.8.2 

STE 

14.2.7 

16.6 

XOA 

7.5.2 

77.0 

CON 

20.2 

INCL 

21.2 

STI,I 

3.2.3 

16.7 

XOQ 

7.5.3 

77.1 

SEL 

20.3 

INI 

3.4.3 

STQ,I 

3.2.2 

- 17.0 

No Operation 

77.2 

EXS 

20.9.1 

INPC,INT, 

20.6 

SWA, I 

3.7 

17.1-3 

ANI 

7.4.4 

77.2 

COPY 

20.9.2 

B,H 


TAI 

9.1.2 

17.4 

ANA,S 

7.4.2 

77.3 

INS 

20.9.4 

INPW,INT, 

20.4 

TAM 

9.2.2 

17.5 

ANQ,S 

7.4.3 

77.3 

CINS 

20.9.5 

B,N 


TIA 

9.1.1 

17.6 

ANA 

7.4.2 

77.4 

INTS 

20.9.3 

INQ 

3.4.2 

TIM 

9.4.2 

17.7 

ANQ 

7.4.3 

77.50 

INCL 

21.2 

INQ,S 

3.4.2 

TMA 

9.2.1 

20 

LDA,I 

3.1.1 

77.51 

lOCL 


INS 

20.9.4 

TMI 

9.4.1 

21 

LDQ,I 

3.1.2 

77.52 

SSIM 

21.1 

INTS 

20.9.3 

TMQ 

9.3.1 

22 

LACH 

8.2.1 

77.53 

SGIM 


lOCL 


TQM 

9.3.2 

23 

LQCH 

8.2.2 

77.54-56 

No Operation 1 

ISD 

3.6.3 

UCS 


24 

LCA,I 

7.3.1 

77.57 

lAPR 


ISE 

3.6.1 

UJP,I 

3.5.1 

25 

LDAQ,I 

5.1 

77.6 

PADS 

10.4 & 

ISG 

3.6.2 

XOA 

7.5.2 

26 

LCAQjI 

7.3.2 



20.10.5.3 

ISI 

3.6.3 

XOA,S 

7.5.2 

27 

LDL,I 

7.2 

77.70 

SLS 


LACH 

8.2.1 

XOI 

7.5.4 

30 

ADA, I 

3.3.1 

77.71 

SFPF 


LGA,I 

7.3.1 

XOQ 

7.5.3 

31 

SBA,I 

3.3.2 

77.72 

SBCD 


LCAQ.I 

7.3.2 

XOQ,S 

7.5.3 

32 

ADAQ,I 

6.1 

77.73 

DINT 






33 

SBAQ,I 

6.2 

77.74 

EINT 

21.1-2 





34 

RAD. I 

3.3.5 

77.75 

CTI 

20.10.5.1 





35 

SSA,I 

7.6 

77.76 

CTO 

20.10.5.2 





36 

SCA,I 

7.5.1 

77.77 

UGS 






37 

LPA,1 

7.4.1 
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